string_to_id = (
Hashtbl
.create 50: ((string * int),int)
Hashtbl
.t)