`sig type 'a t = 'a BatEnum.t module type Enumerable = sig type 'a enumerable val enum : 'a enumerable -> 'a t val of_enum : 'a t -> 'a enumerable end type 'a enumerable = 'a t type 'a mappable = 'a t val iter : ('a -> unit) -> 'a t -> unit val iter2 : ('a -> 'b -> unit) -> 'a t -> 'b t -> unit val exists : ('a -> bool) -> 'a t -> bool val for_all : ('a -> bool) -> 'a t -> bool val fold : ('b -> 'a -> 'b) -> 'b -> 'a t -> 'b val reduce : ('a -> 'a -> 'a) -> 'a t -> 'a val sum : int t -> int val fsum : float t -> float val kahan_sum : float t -> float val fold2 : ('a -> 'b -> 'c -> 'c) -> 'c -> 'a t -> 'b t -> 'c val scanl : ('b -> 'a -> 'b) -> 'b -> 'a t -> 'b t val scan : ('a -> 'a -> 'a) -> 'a t -> 'a t val iteri : (int -> 'a -> unit) -> 'a t -> unit val iter2i : (int -> 'a -> 'b -> unit) -> 'a t -> 'b t -> unit val foldi : (int -> 'a -> 'b -> 'b) -> 'b -> 'a t -> 'b val fold2i : (int -> 'a -> 'b -> 'c -> 'c) -> 'c -> 'a t -> 'b t -> 'c val find_map : ('a -> 'b option) -> 'a t -> 'b val is_empty : 'a t -> bool val peek : 'a t -> 'a option val get : 'a t -> 'a option val get_exn : 'a t -> 'a val push : 'a t -> 'a -> unit val junk : 'a t -> unit val clone : 'a t -> 'a t val force : 'a t -> unit val take : int -> 'a t -> 'a t val drop : int -> 'a t -> unit val skip : int -> 'a t -> 'a t val take_while : ('a -> bool) -> 'a t -> 'a t val drop_while : ('a -> bool) -> 'a t -> 'a t val span : ('a -> bool) -> 'a t -> 'a t * 'a t val break : ('a -> bool) -> 'a t -> 'a t * 'a t val group : ('a -> 'b) -> 'a t -> 'a t t val group_by : ('a -> 'a -> bool) -> 'a t -> 'a t t val clump : int -> ('a -> unit) -> (unit -> 'b) -> 'a t -> 'b t val cartesian_product : 'a t -> 'b t -> ('a * 'b) t val map : ('a -> 'b) -> 'a t -> 'b t val mapi : (int -> 'a -> 'b) -> 'a t -> 'b t val filter : ('a -> bool) -> 'a t -> 'a t val filter_map : ('a -> 'b option) -> 'a t -> 'b t val append : 'a t -> 'a t -> 'a t val prefix_action : (unit -> unit) -> 'a t -> 'a t val suffix_action : (unit -> unit) -> 'a t -> 'a t val concat : 'a t t -> 'a t val flatten : 'a t t -> 'a t val concat_map : ('a -> 'b t) -> 'a t -> 'b t exception No_more_elements exception Infinite_enum val empty : unit -> 'a t val make : next:(unit -> 'a) -> count:(unit -> int) -> clone:(unit -> 'a t) -> 'a t val from : (unit -> 'a) -> 'a t val from_while : (unit -> 'a option) -> 'a t val from_loop : 'b -> ('b -> 'a * 'b) -> 'a t val seq : 'a -> ('a -> 'a) -> ('a -> bool) -> 'a t val unfold : 'b -> ('b -> ('a * 'b) option) -> 'a t val init : int -> (int -> 'a) -> 'a t val singleton : 'a -> 'a t val repeat : ?times:int -> 'a -> 'a t val cycle : ?times:int -> 'a t -> 'a t val delay : (unit -> 'a t) -> 'a t val to_object : 'a t -> (< clone : 'b; count : int; next : 'a > as 'b) val of_object : (< clone : 'b; count : int; next : 'a > as 'b) -> 'a t val enum : 'a t -> 'a t val of_enum : 'a t -> 'a t val count : 'a t -> int val fast_count : 'a t -> bool val hard_count : 'a t -> int val range : ?until:int -> int -> int t val dup : 'a t -> 'a t * 'a t val combine : 'a t * 'b t -> ('a * 'b) t val uncombine : ('a * 'b) t -> 'a t * 'b t val merge : ('a -> 'a -> bool) -> 'a t -> 'a t -> 'a t val interleave : 'a t array -> 'a t val uniq : 'a t -> 'a t val uniqq : 'a t -> 'a t val uniq_by : ('a -> 'a -> bool) -> 'a t -> 'a t val switch : ('a -> bool) -> 'a t -> 'a t * 'a t val partition : ('a -> bool) -> 'a t -> 'a t * 'a t val arg_min : ('a -> 'b) -> 'a t -> 'a val arg_max : ('a -> 'b) -> 'a t -> 'a val while_do : ('a -> bool) -> ('a t -> 'a t) -> 'a t -> 'a t module Infix : sig val ( -- ) : int -> int -> int BatEnum.t val ( --^ ) : int -> int -> int BatEnum.t val ( --. ) : float * float -> float -> float BatEnum.t val ( --- ) : int -> int -> int BatEnum.t val ( --~ ) : char -> char -> char BatEnum.t val ( // ) : 'a BatEnum.t -> ('a -> bool) -> 'a BatEnum.t val ( /@ ) : 'a BatEnum.t -> ('a -> 'b) -> 'b BatEnum.t val ( @/ ) : ('a -> 'b) -> 'a BatEnum.t -> 'b BatEnum.t val ( //@ ) : 'a BatEnum.t -> ('a -> 'b option) -> 'b BatEnum.t val ( @// ) : ('a -> 'b option) -> 'a BatEnum.t -> 'b BatEnum.t end val ( -- ) : int -> int -> int t val ( --^ ) : int -> int -> int t val ( --. ) : float * float -> float -> float t val ( --- ) : int -> int -> int t val ( --~ ) : char -> char -> char t val ( // ) : 'a t -> ('a -> bool) -> 'a t val ( /@ ) : 'a t -> ('a -> 'b) -> 'b t val ( @/ ) : ('a -> 'b) -> 'a t -> 'b t val ( //@ ) : 'a t -> ('a -> 'b option) -> 'b t val ( @// ) : ('a -> 'b option) -> 'a t -> 'b t module WithMonad : functor (Mon : BatInterfaces.Monad) -> sig type 'a m = 'a Mon.m val sequence : 'a m BatEnum.t -> 'a BatEnum.t m val fold_monad : ('a -> 'b -> 'a m) -> 'a -> 'b BatEnum.t -> 'a m end module Monad : sig type 'a m = 'a BatEnum.t val return : 'a -> 'a m val bind : 'a m -> ('a -> 'b m) -> 'b m end val print : ?first:string -> ?last:string -> ?sep:string -> ('a BatInnerIO.output -> 'b -> unit) -> 'a BatInnerIO.output -> 'b t -> unit val print_at_most : ?first:string -> ?last:string -> ?sep:string -> limit:int -> ('a BatInnerIO.output -> 'b -> unit) -> 'a BatInnerIO.output -> 'b t -> unit val compare : ('a -> 'a -> int) -> 'a t -> 'a t -> int val ord : ('a -> 'a -> BatOrd.order) -> 'a t -> 'a t -> BatOrd.order val equal : ('a -> 'a -> bool) -> 'a t -> 'a t -> bool module Exceptionless : sig val find : ('a -> bool) -> 'a BatEnum.t -> 'a option end val iapp : 'a t -> 'a t -> 'a t val icons : 'a -> 'a t -> 'a t val ising : 'a -> 'a t val lapp : (unit -> 'a t) -> 'a t -> 'a t val lcons : (unit -> 'a) -> 'a t -> 'a t val lsing : (unit -> 'a) -> 'a t val slazy : (unit -> 'a t) -> 'a t val find : ('a -> bool) -> 'a BatEnum.t -> 'a option module Labels : sig val iter : f:('a -> unit) -> 'a BatEnum.t -> unit val iter2 : f:('a -> 'b -> unit) -> 'a BatEnum.t -> 'b BatEnum.t -> unit val exists : f:('a -> bool) -> 'a BatEnum.t -> bool val for_all : f:('a -> bool) -> 'a BatEnum.t -> bool val fold : f:('b -> 'a -> 'b) -> init:'b -> 'a BatEnum.t -> 'b val fold2 : f:('a -> 'b -> 'c -> 'c) -> init:'c -> 'a BatEnum.t -> 'b BatEnum.t -> 'c val iteri : f:(int -> 'a -> unit) -> 'a BatEnum.t -> unit val iter2i : f:(int -> 'a -> 'b -> unit) -> 'a BatEnum.t -> 'b BatEnum.t -> unit val foldi : f:(int -> 'a -> 'b -> 'b) -> init:'b -> 'a BatEnum.t -> 'b val fold2i : f:(int -> 'a -> 'b -> 'c -> 'c) -> init:'c -> 'a BatEnum.t -> 'b BatEnum.t -> 'c val take_while : f:('a -> bool) -> 'a BatEnum.t -> 'a BatEnum.t val drop_while : f:('a -> bool) -> 'a BatEnum.t -> 'a BatEnum.t val map : f:('a -> 'b) -> 'a BatEnum.t -> 'b BatEnum.t val mapi : f:(int -> 'a -> 'b) -> 'a BatEnum.t -> 'b BatEnum.t val filter : f:('a -> bool) -> 'a BatEnum.t -> 'a BatEnum.t val filter_map : f:('a -> 'b option) -> 'a BatEnum.t -> 'b BatEnum.t val from : f:(unit -> 'a) -> 'a BatEnum.t val from_while : f:(unit -> 'a option) -> 'a BatEnum.t val from_loop : init:'b -> f:('b -> 'a * 'b) -> 'a BatEnum.t val seq : init:'a -> f:('a -> 'a) -> cnd:('a -> bool) -> 'a BatEnum.t val unfold : init:'b -> f:('b -> ('a * 'b) option) -> 'a BatEnum.t val init : int -> f:(int -> 'a) -> 'a BatEnum.t val switch : f:('a -> bool) -> 'a BatEnum.t -> 'a BatEnum.t * 'a BatEnum.t val compare : ?cmp:('a -> 'a -> int) -> 'a BatEnum.t -> 'a BatEnum.t -> int val uniq : ?cmp:('a -> 'a -> bool) -> 'a BatEnum.t -> 'a BatEnum.t module LExceptionless = BatEnum.Labels.LExceptionless val find : f:('a -> bool) -> 'a BatEnum.t -> 'a option end end`