main :: IO ()
main = do
  w <- getLine :: IO String
  putStr $ test w

test :: String -> String
test [] = "Yes"
test [_] = "No"
test (x:xs) 
  | length fil `mod` 2 == 1 = "No"
  | otherwise = test filnot
    where fil = filter (==x) (x:xs)
          filnot = filter (/=x) xs
