module Person: sig .. end
sig
end
type t = string * int
string * int
val compare : 'a * 'b -> 'c * 'b -> int
'a * 'b -> 'c * 'b -> int
val show : string * int -> string
string * int -> string