sig
  type ('a, 'b, 'c, 'd) t = '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 prj12 : 'a * 'b * 'c * '-> 'a * 'b
  val prj13 : 'a * 'b * 'c * '-> 'a * 'c
  val prj14 : 'a * 'b * 'c * '-> 'a * 'd
  val prj23 : 'a * 'b * 'c * '-> 'b * 'c
  val prj24 : 'a * 'b * 'c * '-> 'b * 'd
  val prj34 : 'a * 'b * 'c * '-> 'c * 'd
  val prj123 : 'a * 'b * 'c * '-> 'a * 'b * 'c
  val prj124 : 'a * 'b * 'c * '-> 'a * 'b * 'd
  val prj234 : 'a * 'b * 'c * '-> 'b * 'c * 'd
  val mapn :
    ('-> 'b) ->
    ('-> 'd) ->
    ('-> 'f) -> ('-> 'h) -> 'a * 'c * 'e * '-> 'b * 'd * 'f * 'h
  val map1 : ('-> 'b) -> 'a * 'c * 'd * '-> 'b * 'c * 'd * 'e
  val map2 : ('-> 'b) -> 'c * 'a * 'd * '-> 'c * 'b * 'd * 'e
  val map3 : ('-> 'b) -> 'c * 'd * 'a * '-> 'c * 'd * 'b * 'e
  val map4 : ('-> 'b) -> 'c * 'd * 'e * '-> 'c * 'd * 'e * 'b
  val curry : ('a * 'b * 'c * '-> 'e) -> '-> '-> '-> '-> 'e
  val uncurry : ('-> '-> '-> '-> 'e) -> 'a * 'b * 'c * '-> 'e
  val printn :
    ('BatIO.output -> '-> unit) ->
    ('BatIO.output -> '-> unit) ->
    ('BatIO.output -> '-> unit) ->
    ('BatIO.output -> '-> unit) ->
    'BatIO.output -> 'b * 'c * 'd * '-> unit
  val print :
    ('BatIO.output -> '-> unit) ->
    'BatIO.output -> 'b * 'b * 'b * '-> 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
  type 'a mappable = 'a * 'a * 'a * 'a
  val map : ('-> 'b) -> 'a mappable -> 'b mappable
end