<pre>read-nums
m:
    abs
    804247
    *
    64
    +
    7
    shift-right
    1000
    divmod
    1000
    +
        show
    t1
    tail
    &quot;.&quot;
    swap
    new-line
</pre>