(defun main (&rest argv) (declare (ignorable argv)) (let* ((y (read)) (m (read)) (d (read))) (format t "~a~%" (cond ((or (< y 1989) (< 2019 y)) "No") ((< 1989 y 2019) "Yes") ((= y 1989) (cond ((< 1 m) "Yes") ((and (= 1 m) (< d 8)) "No") (t "Yes"))) (t (if (<= m 4) "Yes" "No")))))) (main)