let add h k v = try let l = Hashtbl.find h k in l := v::!l with Not_found -> Hashtbl.add h k (ref [v])