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