line-mode
ascii-digits
and
read-num
pop-a
15500
-29000
-23645
double
508
square
2222940
311293
6
make-array
    swap
    push-a
    *
    6
    digit-right
    +
b6
fold
10
/
1000
divmod
1000
+
    show
t1
left-uncons
3
-
left-cons
catenate #(list+list)