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