program ABC159B
    implicit none
    integer(8)::i,N,flg
    character(99)::S
    read*,S
    N=len_trim(S)
    flg=0

    do i=1,N/2
        if(S(i:i)/=S(N-i+1:N-i+1))flg=1
    end do

    do i=1,N/4
        if(S(i:i)/=S(N/2-i+1:N/2-i+1))flg=1
        if(S(N/2+1+i:N/2+1+i)/=S(N-i+1:N-i+1))flg=1
    end do
    if(flg==0)print'(A)',"Yes"
    if(flg==1)print'(A)',"No"
end program ABC159B