module Main where

import Data.Char
import Data.List

main :: IO ()
main = do
  num <- fmap read getLine
  str <- getLine
  if (mod num 2) == 1
    then putStrLn "No"
    else putStrLn $ discrimination num str

discrimination:: Int -> String -> String
discrimination n str = 
  let half = n `div` 2
      firstHalf = take half str
      secondHalf = reverse $ take half $ reverse str
  in if firstHalf == secondHalf
    then "Yes"
    else "No"