read-num
dup
dec
power-of-10
show
dup
reverse
    |
z1
dup
cartesian-product
    |
dm1
chunks
unlines
space
new-line