let has_reserved_prefix name =
  try
    let index = String.index name '_' in
    let prefix = String.sub name 0 index in
    Hashtbl.mem reserved_prefix_tbl prefix
  with Not_found -> false