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