let
null_position :
Lexing
.position =
{pos_fname=
""
; pos_lnum=0; pos_bol=0; pos_cnum=0}