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