`sig
type ('a, 'b) t = 'a * 'b
val compare :
?c1:('a -> 'a -> int) ->
?c2:('b -> 'b -> int) -> 'a * 'b -> 'a * 'b -> int
val print :
?first:string ->
?sep:string ->
?last:string ->
('a BatIO.output -> 'b -> unit) ->
('a BatIO.output -> 'c -> unit) -> 'a BatIO.output -> 'b * 'c -> unit
val print2 :
('a BatIO.output -> 'b -> unit) -> 'a BatIO.output -> 'b * 'b -> unit
type 'a enumerable = 'a * 'a
val enum : 'a enumerable -> 'a BatEnum.t
val of_enum : 'a BatEnum.t -> 'a enumerable
type 'a mappable = 'a * 'a
val map : ('a -> 'b) -> 'a mappable -> 'b mappable
end`