read-nums
extract-array
pop-a
    push-a
    *
t2
inc
crange
dup
length
push-a
/
step
m:
    push-a
    gcd
    @0
    over
    /
    show
    @4
    rot
    /
    dec
    f:
        "/"
        @2
        show
    }
    show-space