sig
  type ('a, 'b, 'c) t = 'a * 'b * 'c
  val first : 'a * 'b * 'c -> 'a
  val second : 'a * 'b * 'c -> 'b
  val third : 'a * 'b * 'c -> 'c
  val prj12 : 'a * 'b * 'c -> 'a * 'b
  val prj13 : 'a * 'b * 'c -> 'a * 'c
  val prj23 : 'a * 'b * 'c -> 'b * 'c
  val mapn :
    ('a -> 'b) -> ('c -> 'd) -> ('e -> 'f) -> 'a * 'c * 'e -> 'b * 'd * 'f
  val map1 : ('a -> 'b) -> 'a * 'c * 'd -> 'b * 'c * 'd
  val map2 : ('a -> 'b) -> 'c * 'a * 'd -> 'c * 'b * 'd
  val map3 : ('a -> 'b) -> 'c * 'd * 'a -> 'c * 'd * 'b
  val curry : ('a * 'b * 'c -> 'd) -> 'a -> 'b -> 'c -> 'd
  val uncurry : ('a -> 'b -> 'c -> 'd) -> 'a * 'b * 'c -> 'd
  val printn :
    ('a BatIO.output -> 'b -> unit) ->
    ('a BatIO.output -> 'c -> unit) ->
    ('a BatIO.output -> 'd -> unit) ->
    'a BatIO.output -> 'b * 'c * 'd -> unit
  val print :
    ('a BatIO.output -> 'b -> unit) ->
    'a BatIO.output -> 'b * 'b * 'b -> 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
  type 'a mappable = 'a * 'a * 'a
  val map : ('a -> 'b) -> 'a mappable -> 'b mappable
end