line-mode
words
dump
    2dup
    swap
    catenate #(list+list)
b3
6
times #(eval)
8
make-array
unwords