: ((random-integer)) ( num-bits obj -- n )
    random-32* swap bits ;