let handleLexerError lexerBuffer errorMessage =
  prerr_string "%% Lexical error: Line "; prerr_int !lineCounter;
  prerr_string ": ";
  prerr_string errorMessage; prerr_string " ";
  prerr_endline (lexerBuffer);
  exit (-1)