(defun main (&rest argv) (declare (ignorable argv)) (let* ((n (read)) (m n) (pf 0) (p 2)) (loop while (<= (* p p) m) do (loop while (zerop (mod n p)) do (incf pf) (setf n (floor n p))) (incf p)) (unless (= n 1) (incf pf)) (format t "~a~%" (if (>= pf 3) "YES" "NO")))) (main)