program kadai
    implicit none
integer  ::  N,i
character(len=100)  ::  S

read(*,*) N
read(*,*) S

if (mod(N,2)==1) then
    write(*,*) "No"
    stop
end if

do i=1,N/2
    if (S(i:i) /= S((N/2)+i:(N/2)+i)) then
        write(*,*) "No"
        stop
    end if
end do

write(*,*) "Yes"

stop
contains
end program kadai
