program main
  
   implicit none

   integer :: i,n 
   character(100) :: s
   
   read( *, * ) n
   read( *, * ) s

   if( s(1:int(n/2)) == s(int( n/2 )+1:n) ) then 
     print*, "Yes" 
   else
     print*, "No" 
   end if

end program main
