(defun main (&rest argv) (declare (ignorable argv)) (let* ((n (read)) (x (loop repeat n collect (read))) (p 0) (q 0)) (dolist (i x) (if (evenp i) (incf p) (incf q))) (format t "~d~%" (abs (- p q))))) (main)