let istore_char c i =
              Buffer.add_char c.buffer (Lexing.lexeme_char c.lexbuf i)