program main
  implicit none
  integer :: cnt(26), i, j
  character(100) :: w
  read (*, *) w
  cnt(:) = 0
  do i = 1, len_trim(w)
    j = iachar(w(i:i)) - iachar("a") + 1
    cnt(j) = cnt(j) + 1
  end do
  if (sum(mod(cnt, 2)) == 0) then
    write (*, "(a)") "Yes"
  else
    write (*, "(a)") "No"
  end if
end program main

