`sig
val init : int -> unit
val full_init : int array -> unit
val self_init : unit -> unit
val bits : unit -> int
val int : int -> int
val int32 : Int32.t -> Int32.t
val nativeint : Nativeint.t -> Nativeint.t
val int64 : Int64.t -> Int64.t
val float : float -> float
val bool : unit -> bool
module State :
sig
type t
val default : Core_random.State.t
val make : int array -> Core_random.State.t
val make_self_init : unit -> Core_random.State.t
val copy : Core_random.State.t -> Core_random.State.t
val bits : Core_random.State.t -> int
val int : Core_random.State.t -> int -> int
val int32 : Core_random.State.t -> Int32.t -> Int32.t
val nativeint : Core_random.State.t -> Nativeint.t -> Nativeint.t
val int64 : Core_random.State.t -> Int64.t -> Int64.t
val float : Core_random.State.t -> float -> float
val bool : Core_random.State.t -> bool
end
val get_state : unit -> [ `Consider_using_Random_State_default ]
val set_state : Core_random.State.t -> unit
end`