sig
  val float_lp : Random.State.t -> float
  val bool : Random.State.t -> unit -> bool
end