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