USING: kernel math math.functions ;

: round-prev ( number x -- number )
    [ [ - ] [ / ] bi ceiling ] [ * ] bi ;

: round-next ( number x -- number )
    [ [ + ] [ / ] bi floor ] [ * ] bi ;