module HashedIntPair  = 
   struct
     type t =  int * int 
     let equal = (=) 
     let hash  = Hashtbl.hash
   end
;;