read-nums
m:
    dup
    odd
        show
        "/"
        4
    f3
    half
    show-line