sig
  module List :
    sig
      val length : 'a list -> int
      val hd : 'a list -> 'a
      val tl : 'a list -> 'a list
      val nth : 'a list -> int -> 'a
      val rev : 'a list -> 'a list
      val append : 'a list -> 'a list -> 'a list
      val rev_append : 'a list -> 'a list -> 'a list
      val concat : 'a list list -> 'a list
      val flatten : 'a list list -> 'a list
      val iter : ('-> unit) -> 'a list -> unit
      val iteri : (int -> '-> unit) -> 'a list -> unit
      val map : ('-> 'b) -> 'a list -> 'b list
      val mapi : (int -> '-> 'b) -> 'a list -> 'b list
      val rev_map : ('-> 'b) -> 'a list -> 'b list
      val fold_left : ('-> '-> 'a) -> '-> 'b list -> 'a
      val fold_right : ('-> '-> 'b) -> 'a list -> '-> 'b
      val iter2 : ('-> '-> unit) -> 'a list -> 'b list -> unit
      val map2 : ('-> '-> 'c) -> 'a list -> 'b list -> 'c list
      val rev_map2 : ('-> '-> 'c) -> 'a list -> 'b list -> 'c list
      val fold_left2 :
        ('-> '-> '-> 'a) -> '-> 'b list -> 'c list -> 'a
      val fold_right2 :
        ('-> '-> '-> 'c) -> 'a list -> 'b list -> '-> 'c
      val for_all : ('-> bool) -> 'a list -> bool
      val exists : ('-> bool) -> 'a list -> bool
      val for_all2 : ('-> '-> bool) -> 'a list -> 'b list -> bool
      val exists2 : ('-> '-> bool) -> 'a list -> 'b list -> bool
      val mem : '-> 'a list -> bool
      val memq : '-> 'a list -> bool
      val find : ('-> bool) -> 'a list -> 'a
      val filter : ('-> bool) -> 'a list -> 'a list
      val find_all : ('-> bool) -> 'a list -> 'a list
      val partition : ('-> bool) -> 'a list -> 'a list * 'a list
      val assoc : '-> ('a * 'b) list -> 'b
      val assq : '-> ('a * 'b) list -> 'b
      val mem_assoc : '-> ('a * 'b) list -> bool
      val mem_assq : '-> ('a * 'b) list -> bool
      val remove_assoc : '-> ('a * 'b) list -> ('a * 'b) list
      val remove_assq : '-> ('a * 'b) list -> ('a * 'b) list
      val split : ('a * 'b) list -> 'a list * 'b list
      val combine : 'a list -> 'b list -> ('a * 'b) list
      val sort : ('-> '-> int) -> 'a list -> 'a list
      val stable_sort : ('-> '-> int) -> 'a list -> 'a list
      val fast_sort : ('-> '-> int) -> 'a list -> 'a list
      val merge : ('-> '-> int) -> 'a list -> 'a list -> 'a list
      type 'a t = 'a list
      type 'a enumerable = 'a t
      type 'a mappable = 'a t
      val is_empty : 'a list -> bool
      val cons : '-> 'a list -> 'a list
      val first : 'a list -> 'a
      val hd : 'a list -> 'a
      val tl : 'a list -> 'a list
      val last : 'a list -> 'a
      val length : 'a list -> int
      val at : 'a list -> int -> 'a
      val rev : 'a list -> 'a list
      val append : 'a list -> 'a list -> 'a list
      val rev_append : 'a list -> 'a list -> 'a list
      val concat : 'a list list -> 'a list
      val flatten : 'a list list -> 'a list
      val make : int -> '-> 'a list
      val init : int -> (int -> 'a) -> 'a list
      val iter : ('-> unit) -> 'a list -> unit
      val iteri : (int -> '-> unit) -> 'a list -> unit
      val map : ('-> 'b) -> 'a list -> 'b list
      val rev_map : ('-> 'b) -> 'a list -> 'b list
      val mapi : (int -> '-> 'b) -> 'a list -> 'b list
      val fold_left : ('-> '-> 'a) -> '-> 'b list -> 'a
      val fold_right : ('-> '-> 'b) -> 'a list -> '-> 'b
      val reduce : ('-> '-> 'a) -> 'a list -> 'a
      val max : 'a list -> 'a
      val min : 'a list -> 'a
      val sum : int list -> int
      val fsum : float list -> float
      val iter2 : ('-> '-> unit) -> 'a list -> 'b list -> unit
      val map2 : ('-> '-> 'c) -> 'a list -> 'b list -> 'c list
      val rev_map2 : ('-> '-> 'c) -> 'a list -> 'b list -> 'c list
      val fold_left2 :
        ('-> '-> '-> 'a) -> '-> 'b list -> 'c list -> 'a
      val fold_right2 :
        ('-> '-> '-> 'c) -> 'a list -> 'b list -> '-> 'c
      val mem : '-> 'a list -> bool
      val memq : '-> 'a list -> bool
      val for_all : ('-> bool) -> 'a list -> bool
      val exists : ('-> bool) -> 'a list -> bool
      val for_all2 : ('-> '-> bool) -> 'a list -> 'b list -> bool
      val exists2 : ('-> '-> bool) -> 'a list -> 'b list -> bool
      val find : ('-> bool) -> 'a list -> 'a
      val find_exn : ('-> bool) -> exn -> 'a list -> 'a
      val findi : (int -> '-> bool) -> 'a list -> int * 'a
      val find_map : ('-> 'b option) -> 'a list -> 'b
      val rfind : ('-> bool) -> 'a list -> 'a
      val filter : ('-> bool) -> 'a list -> 'a list
      val filter_map : ('-> 'b option) -> 'a list -> 'b list
      val find_all : ('-> bool) -> 'a list -> 'a list
      val partition : ('-> bool) -> 'a list -> 'a list * 'a list
      val index_of : '-> 'a list -> int option
      val index_ofq : '-> 'a list -> int option
      val rindex_of : '-> 'a list -> int option
      val rindex_ofq : '-> 'a list -> int option
      val unique : ?eq:('-> '-> bool) -> 'a list -> 'a list
      val unique_cmp : ?cmp:('-> '-> int) -> 'a list -> 'a list
      val unique_hash :
        ?hash:('-> int) -> ?eq:('-> '-> bool) -> 'a list -> 'a list
      val assoc : '-> ('a * 'b) list -> 'b
      val assoc_inv : '-> ('a * 'b) list -> 'a
      val remove_assoc : '-> ('a * 'b) list -> ('a * 'b) list
      val mem_assoc : '-> ('a * 'b) list -> bool
      val assq : '-> ('a * 'b) list -> 'b
      val assq_inv : '-> ('a * 'b) list -> 'a
      val remove_assq : '-> ('a * 'b) list -> ('a * 'b) list
      val mem_assq : '-> ('a * 'b) list -> bool
      val split_at : int -> 'a list -> 'a list * 'a list
      val split_nth : int -> 'a list -> 'a list * 'a list
      val remove : 'a list -> '-> 'a list
      val remove_if : ('-> bool) -> 'a list -> 'a list
      val remove_all : 'a list -> '-> 'a list
      val take : int -> 'a list -> 'a list
      val drop : int -> 'a list -> 'a list
      val take_while : ('-> bool) -> 'a list -> 'a list
      val drop_while : ('-> bool) -> 'a list -> 'a list
      val interleave : ?first:'-> ?last:'-> '-> 'a list -> 'a list
      val enum : 'a list -> 'BatEnum.t
      val of_enum : 'BatEnum.t -> 'a list
      val backwards : 'a list -> 'BatEnum.t
      val of_backwards : 'BatEnum.t -> 'a list
      val split : ('a * 'b) list -> 'a list * 'b list
      val combine : 'a list -> 'b list -> ('a * 'b) list
      val sort : ('-> '-> int) -> 'a list -> 'a list
      val stable_sort : ('-> '-> int) -> 'a list -> 'a list
      val fast_sort : ('-> '-> int) -> 'a list -> 'a list
      val merge : ('-> '-> int) -> 'a list -> 'a list -> 'a list
      val sort_unique : ('-> '-> int) -> 'a list -> 'a list
      val group : ('-> '-> int) -> 'a list -> 'a list list
      val cartesian_product : 'a list -> 'b list -> ('a * 'b) list
      val n_cartesian_product : 'a list list -> 'a list list
      val transpose : 'a list list -> 'a list list
      val print :
        ?first:string ->
        ?last:string ->
        ?sep:string ->
        ('BatInnerIO.output -> '-> unit) ->
        'BatInnerIO.output -> 'b list -> unit
      val eq : 'BatOrd.eq -> 'a list BatOrd.eq
      val ord : 'BatOrd.ord -> 'a list BatOrd.ord
      val compare : 'BatOrd.comp -> 'a list BatOrd.comp
      module Eq :
        functor (T : BatOrd.Eq->
          sig type t = T.t list val eq : t BatOrd.eq end
      module Ord :
        functor (T : BatOrd.Ord->
          sig type t = T.t list val ord : t BatOrd.ord end
      module Comp :
        functor (T : BatOrd.Comp->
          sig type t = T.t list val compare : t BatOrd.comp end
      val nth : 'a list -> int -> 'a
      val takewhile : ('-> bool) -> 'a list -> 'a list
      val dropwhile : ('-> bool) -> 'a list -> 'a list
      module Exceptionless :
        sig
          val find : ('-> bool) -> 'a list -> 'a option
          val rfind : ('-> bool) -> 'a list -> 'a option
          val findi : (int -> '-> bool) -> 'a list -> (int * 'a) option
          val split_at :
            int ->
            'a list ->
            [ `Invalid_argument of string | `Ok of 'a list * 'a list ]
          val at :
            'a list -> int -> [ `Invalid_argument of string | `Ok of 'a ]
          val assoc : '-> ('a * 'b) list -> 'b option
          val assoc_inv : '-> ('a * 'b) list -> 'a option
          val assq : '-> ('a * 'b) list -> 'b option
          val find_map : ('-> 'b option) -> 'a list -> 'b option
          val hd : 'a list -> 'a option
          val tl : 'a list -> 'a list option
          val last : 'a list -> 'a option
        end
      module Infix : sig val ( @ ) : 'a list -> 'a list -> 'a list end
      module Labels :
        sig
          val init : int -> f:(int -> 'a) -> 'a list
          val iter : f:('-> unit) -> 'a list -> unit
          val iteri : f:(int -> '-> unit) -> 'a list -> unit
          val map : f:('-> 'b) -> 'a list -> 'b list
          val mapi : f:(int -> '-> 'b) -> 'a list -> 'b list
          val rev_map : f:('-> 'b) -> 'a list -> 'b list
          val fold_left : f:('-> '-> 'a) -> init:'-> 'b list -> 'a
          val fold_right : f:('-> '-> 'b) -> 'a list -> init:'-> 'b
          val iter2 : f:('-> '-> unit) -> 'a list -> 'b list -> unit
          val map2 : f:('-> '-> 'c) -> 'a list -> 'b list -> 'c list
          val rev_map2 : f:('-> '-> 'c) -> 'a list -> 'b list -> 'c list
          val fold_left2 :
            f:('-> '-> '-> 'a) -> init:'-> 'b list -> 'c list -> 'a
          val fold_right2 :
            f:('-> '-> '-> 'c) -> 'a list -> 'b list -> init:'-> 'c
          val for_all : f:('-> bool) -> 'a list -> bool
          val exists : f:('-> bool) -> 'a list -> bool
          val for_all2 : f:('-> '-> bool) -> 'a list -> 'b list -> bool
          val exists2 : f:('-> '-> bool) -> 'a list -> 'b list -> bool
          val find : f:('-> bool) -> 'a list -> 'a
          val find_exn : f:('-> bool) -> exn -> 'a list -> 'a
          val findi : f:(int -> '-> bool) -> 'a list -> int * 'a
          val rfind : f:('-> bool) -> 'a list -> 'a
          val filter : f:('-> bool) -> 'a list -> 'a list
          val filter_map : f:('-> 'b option) -> 'a list -> 'b list
          val find_all : f:('-> bool) -> 'a list -> 'a list
          val partition : f:('-> bool) -> 'a list -> 'a list * 'a list
          val remove_if : f:('-> bool) -> 'a list -> 'a list
          val take_while : f:('-> bool) -> 'a list -> 'a list
          val drop_while : f:('-> bool) -> 'a list -> 'a list
          val stable_sort : ?cmp:('-> '-> int) -> 'a list -> 'a list
          val fast_sort : ?cmp:('-> '-> int) -> 'a list -> 'a list
          val merge : ?cmp:('-> '-> int) -> 'a list -> 'a list -> 'a list
          module LExceptionless :
            sig
              val find : f:('-> bool) -> 'a list -> 'a option
              val rfind : f:('-> bool) -> 'a list -> 'a option
              val findi :
                f:(int -> '-> bool) -> 'a list -> (int * 'a) option
              val split_at :
                int ->
                'a list ->
                [ `Invalid_argument of string | `Ok of 'a list * 'a list ]
              val at :
                'a list -> int -> [ `Invalid_argument of string | `Ok of 'a ]
              val assoc : '-> ('a * 'b) list -> 'b option
              val assoc_inv : '-> ('a * 'b) list -> 'a option
              val assq : '-> ('a * 'b) list -> 'b option
            end
        end
      val ( @ ) : 'a list -> 'a list -> 'a list
    end
end