<pre>read-num
double
save-a
range
m:
    dup
    &quot;/&quot;
    push-a
    rjust
    64
    ljust
    drop
    take
    &quot;\\&quot;
    new-line
</pre>