line-mode
    dup2
    lowercase-alphabet
    index
    copies
    catenate #(elem+list)
m5
    length
    drop
    @2
    swap
    catenate #(list+list)
b5
scan
extract-array