let newline lexbuf =
    lexbuf.lex_curr_p <- 
      { lexbuf.lex_curr_p with pos_lnum = succ lexbuf.lex_curr_p.pos_lnum }