import           Data.List

main :: IO ()
main = do
  s <- getLine
  putStrLn $ if any odd [ length (elemIndices x s) | x <- ['a' .. 'z'] ]
    then "No"
    else "Yes"
  where toInt s = read s :: Int
