sig
  type 'a t
  val mk : string -> 'a t
  val of_parser : string -> (token_stream -> 'a) -> 'a t
  val setup_parser : 'a t -> (token_stream -> 'a) -> unit
  val name : 'a t -> string
  val print : Format.formatter -> 'a t -> unit
  val dump : Format.formatter -> 'a t -> unit
  val obj : 'a t -> internal_entry
  val clear : 'a t -> unit
end