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