import Data.List
import Data.Ord
import Data.Char
import Data.Ratio
import Data.Maybe

main = do
  isBeautifulStr <- all (==0) .map ((`mod` 2) .length) .group .sort <$> getLine
  putStrLn $ if isBeautifulStr then "Yes" else "No"