line-mode
    dup2
    is-lower
        rrot
    f1
    is-upper
    tuck
m6
0
diff #(list-elem)
left-uncons
itemize
split
    1
    logical-or
m2
unwords