sig val register_kwd : string -> Sid_table_info_parser.token -> unit val _KWD_or_IDENT : string -> Sid_table_info_parser.token end