let which_symbols ?(create = true)
                  (d  : 's delta)
                  (s1 : 's)
                  (s2 : 's) : charset =
  let map = all_delta ~create d s1 in
    try Hashtbl.find map s2
    with Not_found ->
      if create then 
        let newset = Charset.create_empty () in
          Hashtbl.replace map s2 newset;
          newset
      else
        (Charset.create_empty ())