(defun formatOutput (filename)
  (with-open-file (in filename :direction :input)
    (let ((results (read in)))
      (dolist (result results)
	;for a b c d acc pd pf prec
	(format t "~A, ~A, ~A, ~A, ~A~%"
		(nth 0 result)
		(nth 5 result)
		(nth 6 result)
		(nth 7 result)
		(nth 8 result))))))