let on_newline lexbuf =
    lexbuf.lex_curr_p <-
    {
      pos_fname = lexbuf.lex_curr_p.pos_fname;
      pos_lnum = lexbuf.lex_curr_p.pos_lnum + 1;
      pos_bol = lexbuf.lex_curr_p.pos_cnum;
      pos_cnum = lexbuf.lex_curr_p.pos_cnum
    }