line-mode
"0"
catenate #(list+list)
pop-b
lowercase-alphabet
push-a
and
m:
    itemize
    tuck-b
    split
    head
    dup
    1
    left-cons
    last
    odd
        "1"
        catenate #(list+list)
    f2
    read-nums
    last
}
unwords