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