read-nums
m:
    save-a
    136
    *
    push-a
    25
    /
    63
    *
    -
    4
    +
    6
    /
    ( "}<2\x18" )
        push-a
        =
        swap
        -
    b4
    each
    5
    *
    show-line
    reverse
    3
    chunks
    "."
    join
    reverse