(defun main (&rest argv) (declare (ignorable argv)) (let* ((n (read)) (m (read)) (c (read-char))) (format t "~a~%" (ecase c (#\= (if (= n m) "YES" "NO")) (#\< (if (< n m) "YES" "NO")) (#\> (if (> n m) "YES" "NO")))))) (main)