(defun main (&rest argv) (declare (ignorable argv)) (let* ((p (read)) (q (read))) (format t "~a~%" (if (< (* q (- 1 p)) (* p q (- 1 q))) "YES" "NO")))) (main)