(defun main (&rest argv) (declare (ignorable argv)) (let* ((n (read))) (format t "~D~%" (if (evenp n) n (1- n))))) (main)