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