read-nums
m:
    inc
    dup
    range1
    product
    swap
    /
    show-line