PROGRAM ATCODER

implicit none
character(len=100) :: w
integer :: i, j, len, count

read(*,*) w
len = len_trim(w)

do i = 1, len
	count = 0
    do j = 1, len
    	if(w(i:i) == w(j:j))then
    		count = count + 1
    	end if
	end do
	if (mod(count,2) == 1)then
    	write(*,'(a)') 'No'
        stop
    end if
end do

write(*,'(a)') 'Yes'

END PROGRAM ATCODER