:: decimals ( x n -- x' ) 1/10 n ^ :> pos x pos mod :> remain x remain - remain abs pos recip * round 0 > [ pos x sgn * + ] when ;