sig
  type ('a, 'b, 'c, 'd) t = 'a * 'b * 'c * 'd
  val make : '-> '-> '-> '-> 'a * 'b * 'c * 'd
  val first : 'a * 'b * 'c * '-> 'a
  val second : 'a * 'b * 'c * '-> 'b
  val third : 'a * 'b * 'c * '-> 'c
  val fourth : 'a * 'b * 'c * '-> 'd
  val get12 : 'a * 'b * 'c * '-> 'a * 'b
  val get13 : 'a * 'b * 'c * '-> 'a * 'c
  val get14 : 'a * 'b * 'c * '-> 'a * 'd
  val get23 : 'a * 'b * 'c * '-> 'b * 'c
  val get24 : 'a * 'b * 'c * '-> 'b * 'd
  val get34 : 'a * 'b * 'c * '-> 'c * 'd
  val get123 : 'a * 'b * 'c * '-> 'a * 'b * 'c
  val get124 : 'a * 'b * 'c * '-> 'a * 'b * 'd
  val get234 : 'a * 'b * 'c * '-> 'b * 'c * 'd
  val map :
    ('-> 'e) ->
    ('-> 'f) ->
    ('-> 'g) -> ('-> 'h) -> 'a * 'b * 'c * '-> 'e * 'f * 'g * 'h
  val mapn : ('-> 'b) -> 'a * 'a * 'a * '-> 'b * 'b * 'b * 'b
  val map1 : ('-> 'e) -> 'a * 'b * 'c * '-> 'e * 'b * 'c * 'd
  val map2 : ('-> 'e) -> 'a * 'b * 'c * '-> 'a * 'e * 'c * 'd
  val map3 : ('-> 'e) -> 'a * 'b * 'c * '-> 'a * 'b * 'e * 'd
  val map4 : ('-> 'e) -> 'a * 'b * 'c * '-> 'a * 'b * 'c * 'e
  val curry : ('a * 'b * 'c * '-> 'e) -> '-> '-> '-> '-> 'e
  val uncurry : ('-> '-> '-> '-> 'e) -> 'a * 'b * 'c * '-> 'e
  val print :
    ?first:string ->
    ?sep:string ->
    ?last:string ->
    ('BatIO.output -> '-> unit) ->
    ('BatIO.output -> '-> unit) ->
    ('BatIO.output -> '-> unit) ->
    ('BatIO.output -> '-> unit) ->
    'BatIO.output -> 'a * 'b * 'c * '-> unit
  val printn :
    ?first:string ->
    ?sep:string ->
    ?last:string ->
    ('BatIO.output -> '-> unit) ->
    'BatIO.output -> 'a * 'a * 'a * '-> unit
  val compare :
    ?cmp1:('-> '-> int) ->
    ?cmp2:('-> '-> int) ->
    ?cmp3:('-> '-> int) ->
    ?cmp4:('-> '-> int) -> 'a * 'b * 'c * '-> 'a * 'b * 'c * '-> int
  type 'a enumerable = 'a * 'a * 'a * 'a
  val enum : 'a enumerable -> 'BatEnum.t
  val of_enum : 'BatEnum.t -> 'a enumerable
  val eq :
    'BatOrd.eq ->
    'BatOrd.eq ->
    'BatOrd.eq -> 'BatOrd.eq -> ('a * 'b * 'c * 'd) BatOrd.eq
  val ord :
    'BatOrd.ord ->
    'BatOrd.ord ->
    'BatOrd.ord -> 'BatOrd.ord -> ('a * 'b * 'c * 'd) BatOrd.ord
  val comp :
    'BatOrd.comp ->
    'BatOrd.comp ->
    'BatOrd.comp -> 'BatOrd.comp -> ('a * 'b * 'c * 'd) BatOrd.comp
  module Eq :
    functor (T1 : BatOrd.Eq) (T2 : BatOrd.Eq) (T3 : BatOrd.Eq)
      (T4 : BatOrd.Eq->
      sig type t = T1.t * T2.t * T3.t * T4.t val eq : t BatOrd.eq end
  module Ord :
    functor (T1 : BatOrd.Ord) (T2 : BatOrd.Ord) (T3 : BatOrd.Ord)
      (T4 : BatOrd.Ord->
      sig type t = T1.t * T2.t * T3.t * T4.t val ord : t BatOrd.ord end
  module Comp :
    functor (T1 : BatOrd.Comp) (T2 : BatOrd.Comp) (T3 : BatOrd.Comp)
      (T4 : BatOrd.Comp->
      sig type t = T1.t * T2.t * T3.t * T4.t val compare : t BatOrd.comp end
end