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