(defun main (&rest argv) (declare (ignore argv)) (let* ((a (read)) (b (read))) (format t "~a~%~d~%" (if (>= (- b a) 1) "YES" "NO") (abs (- (1+ a) b))))) (main)