(defun solve (a b c) (if (equal a b) "Yes" "No"))
(princ (solve (read-char) (read-char) (read-char)))