import Data.List

main :: IO()
main = do
    s <- getLine
    putStrLn $ solve $ calc s

calc :: String -> Int
calc = length . group . sort . words

solve :: Int -> String
solve 2 = "Yes"
solve x = "No"