let curr_loc lexbuf = (lexbuf.Lexing.lex_start_p.Lexing.pos_cnum, lexbuf.Lexing.lex_curr_p.Lexing.pos_cnum)