w( "a" )
swap
    is-alpha
    not
    @0
            counter
            lowercase-alphabet
            get
            pop-a
                push-a
                catenate #(list+elem)
            m2
        f6
        transpose
    t3
m5
pop
unlines