Hashtbl
.
Make
(
struct
type
t = int
let
equal x y : bool =
x == y
let
hash x : int =
x
end
)