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