line-mode
words
    head
m1
init
init
2
chunks
reverse
    right-uncons
    half
    even
        swap
    f1
    catenate #(list+list)
b6
fold
97
tuck
catenate #(list+elem)
index
even
double
dec