line-mode-skip-first
read-nums
right-uncons
inc
dup
9
+
crange
product
9
range1
product
/
catenate #(list+elem)
unwords