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