(defparameter temp (read-from-string (concatenate 'string "(" (read-line) ")"))) (defparameter H (nth 0 temp)) (defparameter W (nth 1 temp)) (defparameter N (nth 2 temp)) (defparameter K (nth 3 temp)) (defparameter amari (mod (* H W) N)) (if (= amari 0) (setq amari N)) (format t (if (= amari K) "YES~%" "NO~%"))