is-alpha
    not
    @0
m3
lowercase-alphabet
left-uncons
itemize
itemize
rrot
    dup
m1
    nip-a
            push-a
            catenate #(list+elem)
        m2
    f2
    transpose
b4
zipwith
pop
unlines