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