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