sig
  type 'a buffer
  val wrap :
    (Stdlib.Lexing.lexbuf -> 'token) ->
    (Stdlib.Lexing.position * Stdlib.Lexing.position)
    CamlinternalMenhirLib.ErrorReports.buffer *
    (Stdlib.Lexing.lexbuf -> 'token)
  val show :
    ('a -> string) -> 'a CamlinternalMenhirLib.ErrorReports.buffer -> string
  val last : 'a CamlinternalMenhirLib.ErrorReports.buffer -> 'a
end