USING: kernel locals math math.order sequences ;

IN: units.reduction

:: find-unit-suffix ( suffixes n multiplier base -- i/f )
suffixes length
[ [ n ] dip multiplier base threshhold < ] find-integer
suffixes length or 1 [-] ;