line-mode
6
take
@0
read-nums
2
chunks
fold-product
    *
dm1
sort #(list)
3
step
show-comma
words
")"
catenate #(list+list)
catenate #(list+list)