let
hash v =
Hashtbl
.hash (node_type_id !v)