line-mode
read-nums
692708265
6
base #(num to list)
swap
select
2
chunks
    *
dm1
2
chunks
    -
dm1
unwords