USING: kernel locals math random ;

IN: random.private

:: random-integer-loop ( m obj -- n )
obj random-32* 32 m next-power-of-2-bits 32 -
[ dup 0 > ]
[ [ 32 shift obj random-32* + ] [ 32 + ] [ 32 - ] tri* ]
while drop [ m * ] [ neg shift ] bi* ; inline