sig
val
set_rng : (string
->
unit)
->
unit
val
fill_random : string
->
unit
end