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