line-mode
words
right-uncons
read-nums
1000
base #(list to num)
4
digit-right
2
+
catenate #(list+elem)
w( "joints" )
catenate #(list+list)
unwords