main :: IO()
main = do
    str <- getLine
    putStrLn $ if length (even' (map (countStr str) ['a' .. 'z'])) == 26
                   then "Yes"
                   else "No"

countStr :: String -> Char -> Int
countStr str chr
    | str  == [] 				= 0
    | head str == chr			= 1 + (countStr (tail str) chr)
    | otherwise					= (countStr (tail str) chr)

even' :: [Int] -> [Int]
even' [] = []
even' ls = if mod (head ls) 2 == 1 then even' (tail ls) else (head ls):(even' (tail ls))


