sig
  type ('a, 'b) t = 'a * 'b
  val map : ('a -> 'b) -> 'a * 'a -> 'b * 'b
  val compare :
    ?c1:('a -> 'a -> int) ->
    ?c2:('b -> 'b -> int) -> 'a * 'b -> 'a * 'b -> int
  val enum : 'a * 'a -> 'a BatEnum.t
  val of_enum : 'a BatEnum.t -> 'a * 'a
  val print :
    ('a BatIO.output -> 'b -> unit) ->
    ('a BatIO.output -> 'c -> unit) -> 'a BatIO.output -> 'b * 'c -> unit
end