sig
  val bernouilli : Random.State.t -> int -> float -> bool array
  val bernouilli_parallel :
    Random.State.t -> int -> float * float -> (bool * bool) array
  val uniform_ints : Random.State.t -> int -> int -> int -> int array
  val specified_ints : Random.State.t -> float array -> int array
  module Periodic : sig val initialize : int -> int -> int array end
end