(format t "~a~%" (if (= 5 (read)) "Yes" "No"))