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