9
range1
    show
    @0
    3
    >
    f:
        itemize
        lowercase-alphabet
        3
        take
        cartesian-product
        @7
        5
        >
            "+"
            inits
            cartesian-product
        f3
        extract-array
    }
m6
init
unlines