1354044521
digits
234585432
digits
1781111161
digits
    1
    ^
m2
dup
reverse
0
1
    "\t"
    10
    rot
    rjust
t4
5
make-array
    map-show
    unwords
    "9"
    diff #(list-list)
    show-line
m5
space
left-cons
select