let
fill buffer lexbuf =
Buffer
.add_string buffer (
Lexing
.lexeme lexbuf)