let equal : int -> int -> bool = (=)
let compare : int -> int -> int = compare