sig
  val make_init_bak : unit -> UtilsLib.Random.State.t * string
  val make_bak_init : string -> UtilsLib.Random.State.t
end