let
start_pos lexbuf =
let
pos = lexeme_start_p lexbuf
in
pos.
Lexing
.pos_cnum - pos.
Lexing
.pos_bol