let add_pt pts fname n =
    try
      let current = Hashtbl.find pts fname in
      Hashtbl.replace pts fname (nset_add current n)
    with Not_found -> Hashtbl.add pts fname (nset_add nset_empty n)