let of_string str =
  try
    StringHash.find table str
  with
      Not_found ->
        let n = (str, !current) in
          incr current;
          StringHash.add table str n; n