let
bits () =
Random
.
State
.bits rnd_state