program beautiful
implicit none
character(len=100) :: s
integer :: i, c(26), j

read(*,*) s
c = 0
do i = 1, len_trim(s)
j = ichar(s(i:i))-ichar('a') + 1
c(j) = c(j) + 1
end do
do i = 1, 26
if (mod(c(i),2) == 1 ) then
write(*,'(a)') 'No'
stop
end if
end do
write(*,'(a)') 'Yes'
stop
end program beautiful