`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 val char : unit -> char val full_range_int : unit -> int val enum_bits : unit -> int BatEnum.t val enum_int : int -> int BatEnum.t val enum_bool : unit -> bool BatEnum.t val enum_float : float -> float BatEnum.t val enum_int32 : Int32.t -> Int32.t BatEnum.t val enum_int64 : Int64.t -> Int64.t BatEnum.t val enum_nativeint : Nativeint.t -> Nativeint.t BatEnum.t val enum_char : unit -> char BatEnum.t val choice : 'a BatEnum.t -> 'a val multi_choice : int -> 'a BatEnum.t -> 'a BatEnum.t val shuffle : 'a BatEnum.t -> 'a array module State : sig type t = Random.State.t val make : int array -> BatRandom.State.t val make_self_init : unit -> BatRandom.State.t val copy : BatRandom.State.t -> BatRandom.State.t val bits : BatRandom.State.t -> int val int : BatRandom.State.t -> int -> int val int32 : BatRandom.State.t -> Int32.t -> Int32.t val nativeint : BatRandom.State.t -> Nativeint.t -> Nativeint.t val int64 : BatRandom.State.t -> Int64.t -> Int64.t val float : BatRandom.State.t -> float -> float val bool : BatRandom.State.t -> bool val char : BatRandom.State.t -> char val enum_bits : BatRandom.State.t -> unit -> int BatEnum.t val enum_int : BatRandom.State.t -> int -> int BatEnum.t val enum_bool : BatRandom.State.t -> unit -> bool BatEnum.t val enum_float : BatRandom.State.t -> float -> float BatEnum.t val enum_int32 : BatRandom.State.t -> Int32.t -> Int32.t BatEnum.t val enum_int64 : BatRandom.State.t -> Int64.t -> Int64.t BatEnum.t val enum_nativeint : BatRandom.State.t -> Nativeint.t -> Nativeint.t BatEnum.t val enum_char : BatRandom.State.t -> unit -> char BatEnum.t end val get_state : unit -> BatRandom.State.t val set_state : BatRandom.State.t -> unit module Incubator : sig module Private_state_enums : sig module State : sig type t = Random.State.t val make : int array -> BatRandom.Incubator.Private_state_enums.State.t val make_self_init : unit -> BatRandom.Incubator.Private_state_enums.State.t val copy : BatRandom.Incubator.Private_state_enums.State.t -> BatRandom.Incubator.Private_state_enums.State.t val bits : BatRandom.Incubator.Private_state_enums.State.t -> int val int : BatRandom.Incubator.Private_state_enums.State.t -> int -> int val int32 : BatRandom.Incubator.Private_state_enums.State.t -> Int32.t -> Int32.t val nativeint : BatRandom.Incubator.Private_state_enums.State.t -> Nativeint.t -> Nativeint.t val int64 : BatRandom.Incubator.Private_state_enums.State.t -> Int64.t -> Int64.t val float : BatRandom.Incubator.Private_state_enums.State.t -> float -> float val bool : BatRandom.Incubator.Private_state_enums.State.t -> bool val char : BatRandom.Incubator.Private_state_enums.State.t -> char val enum_bits : BatRandom.Incubator.Private_state_enums.State.t -> unit -> int BatEnum.t val enum_int : BatRandom.Incubator.Private_state_enums.State.t -> int -> int BatEnum.t val enum_bool : BatRandom.Incubator.Private_state_enums.State.t -> unit -> bool BatEnum.t val enum_float : BatRandom.Incubator.Private_state_enums.State.t -> float -> float BatEnum.t val enum_int32 : BatRandom.Incubator.Private_state_enums.State.t -> Int32.t -> Int32.t BatEnum.t val enum_int64 : BatRandom.Incubator.Private_state_enums.State.t -> Int64.t -> Int64.t BatEnum.t val enum_nativeint : BatRandom.Incubator.Private_state_enums.State.t -> Nativeint.t -> Nativeint.t BatEnum.t val enum_char : BatRandom.Incubator.Private_state_enums.State.t -> unit -> char BatEnum.t val perturb : BatRandom.Incubator.Private_state_enums.State.t -> BatRandom.Incubator.Private_state_enums.State.t end val enum_bits : unit -> int BatEnum.t val enum_int : int -> int BatEnum.t val enum_bool : unit -> bool BatEnum.t val enum_float : float -> float BatEnum.t val enum_int32 : Int32.t -> Int32.t BatEnum.t val enum_int64 : Int64.t -> Int64.t BatEnum.t val enum_nativeint : Nativeint.t -> Nativeint.t BatEnum.t val enum_char : unit -> char BatEnum.t end end end`