`sig
type ('a, 'b, 'c, 'd) t = 'a * 'b * 'c * 'd
val first : 'a * 'b * 'c * 'd -> 'a
val second : 'a * 'b * 'c * 'd -> 'b
val third : 'a * 'b * 'c * 'd -> 'c
val fourth : 'a * 'b * 'c * 'd -> 'd
val prj12 : 'a * 'b * 'c * 'd -> 'a * 'b
val prj13 : 'a * 'b * 'c * 'd -> 'a * 'c
val prj14 : 'a * 'b * 'c * 'd -> 'a * 'd
val prj23 : 'a * 'b * 'c * 'd -> 'b * 'c
val prj24 : 'a * 'b * 'c * 'd -> 'b * 'd
val prj34 : 'a * 'b * 'c * 'd -> 'c * 'd
val prj123 : 'a * 'b * 'c * 'd -> 'a * 'b * 'c
val prj124 : 'a * 'b * 'c * 'd -> 'a * 'b * 'd
val prj234 : 'a * 'b * 'c * 'd -> 'b * 'c * 'd
val mapn :
('a -> 'b) ->
('c -> 'd) ->
('e -> 'f) -> ('g -> 'h) -> 'a * 'c * 'e * 'g -> 'b * 'd * 'f * 'h
val map1 : ('a -> 'b) -> 'a * 'c * 'd * 'e -> 'b * 'c * 'd * 'e
val map2 : ('a -> 'b) -> 'c * 'a * 'd * 'e -> 'c * 'b * 'd * 'e
val map3 : ('a -> 'b) -> 'c * 'd * 'a * 'e -> 'c * 'd * 'b * 'e
val map4 : ('a -> 'b) -> 'c * 'd * 'e * 'a -> 'c * 'd * 'e * 'b
val curry : ('a * 'b * 'c * 'd -> 'e) -> 'a -> 'b -> 'c -> 'd -> 'e
val uncurry : ('a -> 'b -> 'c -> 'd -> 'e) -> 'a * 'b * 'c * 'd -> 'e
val printn :
('a BatIO.output -> 'b -> unit) ->
('a BatIO.output -> 'c -> unit) ->
('a BatIO.output -> 'd -> unit) ->
('a BatIO.output -> 'e -> unit) ->
'a BatIO.output -> 'b * 'c * 'd * 'e -> unit
val print :
('a BatIO.output -> 'b -> unit) ->
'a BatIO.output -> 'b * 'b * 'b * 'b -> unit
val compare :
?cmp1:('a -> 'a -> int) ->
?cmp2:('b -> 'b -> int) ->
?cmp3:('c -> 'c -> int) ->
?cmp4:('d -> 'd -> int) -> 'a * 'b * 'c * 'd -> 'a * 'b * 'c * 'd -> int
type 'a enumerable = 'a * 'a * 'a * 'a
val enum : 'a enumerable -> 'a BatEnum.t
val of_enum : 'a BatEnum.t -> 'a enumerable
type 'a mappable = 'a * 'a * 'a * 'a
val map : ('a -> 'b) -> 'a mappable -> 'b mappable
end`