w( "a" )
swap
{
    is-alpha
    save-a
        transpose
    f1
    counter
    lowercase-alphabet
    get
    pop-b
        push-b
        catenate #(list+elem)
    m2
    push-a
        transpose
    f1
}
each
unlines