program main
implicit none
integer :: i, j, k, l, a(26)
character :: s*100

read(*,*) s
l = len(s)
a = 0
do i = 1, l
   do j = 1, 26
      k = ichar(s(i:i)) -96
      if( j == k ) then
         a(j) = a(j) + 1
      end if
   end do
end do
do j = 1, 26
   if( mod(a(j),2) /= 0 ) then
      write(*,*) 'No'
      stop
   end if
end do
write(*,*) 'Yes'

end program main
