let loc_of_lexbuf b = (b.Lexing.lex_start_p, b.Lexing.lex_curr_p)