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