USING: kernel math accessors random ;
IN: random.dummy

TUPLE: random-dummy i ;
C: <random-dummy> random-dummy

M: random-dummy seed-random ( obj seed -- obj )
    >>i ;

M: random-dummy random-32* ( obj -- r )
    [ dup 1 + ] change-i drop ;