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