{-# LANGUAGE Strict #-}
import qualified Data.ByteString.Char8 as B

main :: IO ()
main = do
  n <- readLn
  s <- B.getLine
  putStrLn $ if solve n s then "Yes" else "No"

solve :: Int -> B.ByteString -> Bool
solve n s
  | q == 1    = False
  | otherwise = t == u
    where (p, q) = divMod n 2
          (t, u) = B.splitAt p s
