(defun main (&rest argv) (declare (ignorable argv)) (let* ((a1 (read)) (a2 (read)) (a3 (read)) (a4 (read))) (format t "~a~%" (if (and (< a1 a2) (> a3 a4)) "YES" "NO")))) (main)