read-nums
m:
    abs
    1256637
    *
    100
    /
    inc
    half
    4
    48
    rjust
    dup
    3
    take-end
    split
    "."
    @1
    show-line