`sig type ('a, 'b) t = 'a * 'b val make : 'a -> 'b -> 'a * 'b external first : 'a * 'b -> 'a = "%field0" external second : 'a * 'b -> 'b = "%field1" val swap : 'a * 'b -> 'b * 'a val map : ('a -> 'c) -> ('b -> 'd) -> 'a * 'b -> 'c * 'd val mapn : ('a -> 'b) -> 'a * 'a -> 'b * 'b val map1 : ('a -> 'c) -> 'a * 'b -> 'c * 'b val map2 : ('b -> 'c) -> 'a * 'b -> 'a * 'c val curry : ('a * 'b -> 'c) -> 'a -> 'b -> 'c val uncurry : ('a -> 'b -> 'c) -> 'a * 'b -> 'c val print : ?first:string -> ?sep:string -> ?last:string -> ('o BatIO.output -> 'a -> unit) -> ('o BatIO.output -> 'b -> unit) -> 'o BatIO.output -> 'a * 'b -> unit val printn : ?first:string -> ?sep:string -> ?last:string -> ('o BatIO.output -> 'a -> unit) -> 'o BatIO.output -> 'a * 'a -> unit val compare : ?cmp1:('a -> 'a -> int) -> ?cmp2:('b -> 'b -> int) -> 'a * 'b -> 'a * 'b -> int type 'a enumerable = 'a * 'a val enum : 'a enumerable -> 'a BatEnum.t val of_enum : 'a BatEnum.t -> 'a enumerable val eq : 'a BatOrd.eq -> 'b BatOrd.eq -> ('a * 'b) BatOrd.eq val ord : 'a BatOrd.ord -> 'b BatOrd.ord -> ('a * 'b) BatOrd.ord val comp : 'a BatOrd.comp -> 'b BatOrd.comp -> ('a * 'b) BatOrd.comp module Eq : functor (T1 : BatOrd.Eq) (T2 : BatOrd.Eq) -> sig type t = T1.t * T2.t val eq : t BatOrd.eq end module Ord : functor (T1 : BatOrd.Ord) (T2 : BatOrd.Ord) -> sig type t = T1.t * T2.t val ord : t BatOrd.ord end module Comp : functor (T1 : BatOrd.Comp) (T2 : BatOrd.Comp) -> sig type t = T1.t * T2.t val compare : t BatOrd.comp end end`