<pre>read-num
double
rrange
m:
    inc
    &quot;/&quot;
    swap
    rjust
    counter
    take
    @1
    ljust
    init
    &quot;\\&quot;
    show-line
</pre>