program sample
implicit none
character(len=13) :: x
integer(8) :: i,j,n,count
integer(8) :: a(26),b(26)

read(*,*) x

a(:)=0

n=len_trim(x)

do i=1,n
do j=ichar('a'),ichar('z') !aは97,zは122
if (ichar(x(i:i))==j) then
a(j-96) =a(j-96) +1
end if
end do
end do
count=0

do i=1,26
if (mod(a(i),2)==1) then
count=count+1
end if
end do
if (count==0) then
write(*,*) 'Yes'
else
write(*,*) 'No'
end if

!write(*,*) ichar('a'),ichar('z'),count
!write(*,*) a

end program sample