lines
m:
    read-nums
    product
    100
    *
    double
    @3
    sum
    /
    inc
    half
    show
    right-uncons
    swap
    right-uncons
    rot
    "."
    rrot
    new-line