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