sig
  type t
  val empty : Plexing.Lexbuf.t
  val add : char -> Plexing.Lexbuf.t -> Plexing.Lexbuf.t
  val get : Plexing.Lexbuf.t -> string
end