line-mode
ascii-digits
and
read-num
save-a
{
    thousand
    17318
    /
    6091700
    +
    @4
    1000
    square
    -
    @0
    0
    smallest
    square
    *
    239
    /
    12
    digit-right
    +
    @9
    *
    7
    digit-right
    1000
    square
    -
    push-a
    +
}
30
times #(eval)
2731505
+
10
/
1000
divmod
1000
+
    show
t1
left-uncons
3
-
left-cons
catenate #(list+list)