sig
  type 'a e
  val create : Grammar.g -> string -> 'a Grammar.Entry.e
  val parse : 'a Grammar.Entry.e -> char Stream.t -> 'a
  val parse_token : 'a Grammar.Entry.e -> Token.t Stream.t -> 'a
  val name : 'a Grammar.Entry.e -> string
  val of_parser :
    Grammar.g -> string -> (Token.t Stream.t -> 'a) -> 'a Grammar.Entry.e
  val print : 'a Grammar.Entry.e -> unit
  val find : 'a Grammar.Entry.e -> string -> Obj.t Grammar.Entry.e
  external obj : 'a Grammar.Entry.e -> Token.t Gramext.g_entry = "%identity"
end