line-mode
read-nums
extract-array
2dup
gcd
pop-a
    push-a
    /
t2
1
>
    @2
    pair
    map-show
    "/"
    join
f5