let lexerError lexerBuffer errorMessage=
  print_string "Line "; print_int !lineCounter;
  print_string ": Lex.Err: ";
  print_string errorMessage; print_string " ";
  print_endline (lexerBuffer);
  exit (-1)