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])