(defun main (&rest argv) (declare (ignorable argv)) (let* ((x (read)) (y (read)) (z (read)) (res z)) (when (<= x z) (decf res)) (when (<= y z) (decf res)) (format t "~d~%" res))) (main)