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