sig   type 'a t = '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 : ('-> unit) -> 'a t -> unit   val iter2 : ('-> '-> unit) -> 'a t -> 'b t -> unit   val exists : ('-> bool) -> 'a t -> bool   val for_all : ('-> bool) -> 'a t -> bool   val fold : ('-> '-> 'b) -> '-> 'a t -> 'b   val reduce : ('-> '-> 'a) -> 'a t -> 'a   val sum : int t -> int   val fsum : float t -> float   val kahan_sum : float t -> float   val fold2 : ('-> '-> '-> 'c) -> '-> 'a t -> 'b t -> 'c   val scanl : ('-> '-> 'b) -> '-> 'a t -> 'b t   val scan : ('-> '-> 'a) -> 'a t -> 'a t   val iteri : (int -> '-> unit) -> 'a t -> unit   val iter2i : (int -> '-> '-> unit) -> 'a t -> 'b t -> unit   val foldi : (int -> '-> '-> 'b) -> '-> 'a t -> 'b   val fold2i : (int -> '-> '-> '-> 'c) -> '-> 'a t -> 'b t -> 'c   val find_map : ('-> '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 -> '-> 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 : ('-> bool) -> 'a t -> 'a t   val drop_while : ('-> bool) -> 'a t -> 'a t   val span : ('-> bool) -> 'a t -> 'a t * 'a t   val break : ('-> bool) -> 'a t -> 'a t * 'a t   val group : ('-> 'b) -> 'a t -> 'a t t   val group_by : ('-> '-> bool) -> 'a t -> 'a t t   val clump : int -> ('-> unit) -> (unit -> 'b) -> 'a t -> 'b t   val cartesian_product : 'a t -> 'b t -> ('a * 'b) t   val map : ('-> 'b) -> 'a t -> 'b t   val mapi : (int -> '-> 'b) -> 'a t -> 'b t   val filter : ('-> bool) -> 'a t -> 'a t   val filter_map : ('-> '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 : ('-> '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 : '-> ('-> 'a * 'b) -> 'a t   val seq : '-> ('-> 'a) -> ('-> bool) -> 'a t   val unfold : '-> ('-> ('a * 'b) option) -> 'a t   val init : int -> (int -> 'a) -> 'a t   val singleton : '-> 'a t   val repeat : ?times:int -> '-> '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 : ('-> '-> 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 : ('-> '-> bool) -> 'a t -> 'a t   val switch : ('-> bool) -> 'a t -> 'a t * 'a t   val partition : ('-> bool) -> 'a t -> 'a t * 'a t   val arg_min : ('-> 'b) -> 'a t -> 'a   val arg_max : ('-> 'b) -> 'a t -> 'a   val while_do : ('-> 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 ( // ) : '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 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 -> ('-> bool) -> 'a t   val ( /@ ) : 'a t -> ('-> 'b) -> 'b t   val ( @/ ) : ('-> 'b) -> 'a t -> 'b t   val ( //@ ) : 'a t -> ('-> 'b option) -> 'b t   val ( @// ) : ('-> 'b option) -> 'a t -> 'b t   module WithMonad :     functor (Mon : BatInterfaces.Monad->       sig         type 'a m = 'Mon.m         val sequence : 'a m BatEnum.t -> 'BatEnum.t m         val fold_monad : ('-> '-> 'a m) -> '-> 'BatEnum.t -> 'a m       end   module Monad :     sig       type 'a m = 'BatEnum.t       val return : '-> 'a m       val bind : 'a m -> ('-> 'b m) -> 'b m     end   val print :     ?first:string ->     ?last:string ->     ?sep:string ->     ('BatInnerIO.output -> '-> unit) ->     'BatInnerIO.output -> 'b t -> unit   val print_at_most :     ?first:string ->     ?last:string ->     ?sep:string ->     limit:int ->     ('BatInnerIO.output -> '-> unit) ->     'BatInnerIO.output -> 'b t -> unit   val compare : ('-> '-> int) -> 'a t -> 'a t -> int   val ord : ('-> '-> BatOrd.order) -> 'a t -> 'a t -> BatOrd.order   val equal : ('-> '-> bool) -> 'a t -> 'a t -> bool   module Exceptionless :     sig val find : ('-> bool) -> 'BatEnum.t -> 'a option end   val iapp : 'a t -> 'a t -> 'a t   val icons : '-> 'a t -> 'a t   val ising : '-> '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 : ('-> bool) -> 'BatEnum.t -> 'a option   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 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 = BatEnum.Labels.LExceptionless       val find : f:('-> bool) -> 'BatEnum.t -> 'a option     end end