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