<pre>read-num
range1
m:
    save-a
    show
    &quot;:&quot;
    @0
    range1
        tuck-a
        divides
    f2
    unwords
    show-line
</pre>