<pre>line-mode
tuck-d
reverse
m:
    494254
    swap
    %
    9
    /
    power-of-10
    4999
    %
    half
    2dup
    &gt;
        None
    f1
}
sum
nip
</pre>