sig
  val gram_reinit : Grammar.S.te Token.glexer -> unit
  val clear_entry : 'a Grammar.S.Entry.e -> unit
end