sig
  val make_init_back : unit -> Stdlib.Random.State.t * string
  val make_back_init : string -> Stdlib.Random.State.t
end