let
register_prefix s =
Hashtbl
.replace reserved_prefix_tbl s ()