let
store c =
Buffer
.add_string c.buffer (
Lexing
.lexeme c.lexbuf)