module type CoupleHashMap =
	sig
		type clef
		val compClef : clef -> clef -> int
		type valeur
		val val_comp : valeur -> valeur -> int
		val hash : valeur -> clef
	end;;

module Couple (E : TypeOrdonne) (S : TypeOrdonne) : CoupleHashMap with type clef = E.t and type valeur = S.t =
	struct
		type clef = E.t
		let compClef = E.compare
		type valeur = S.t
		let val_comp = S.compare
		let hash s = (String.length s)
	end;;