import Data.List

solve :: String -> String
solve str
    | j = "Yes"
    | otherwise = "No"
    where 
        j = and . map even . map length . group . sort $ str

main = do
    str <- getLine
    putStrLn $ solve str