   Program ABC159B
   implicit none
   integer::n,m,l,i,j,k
   character(100)::s,t,u

      read(*,*) s
      n=len_trim(s)
      t=s(1:(n-1)/2)
      m=len_trim(t)

      A:do i=1,(n-1)/2
         if (s(i:i)/=s(n-i+1:n-i+1)) then
            print *,'No'
            exit A
         else
            B:do j=1,m/2
               if (t(j:j)/=t(m-j+1:m-j+1)) then
                  print *,'No'
                  exit A
               else
                  print *,'Yes'
                  exit A
               end if
            end do B
         end if
      end do A

      stop

   End program ABC159B