import Data.List

toInt :: String -> Int
toInt = read :: String -> Int

solve :: String -> String
solve s = if take l s == drop l s then "Yes" else "No"
  where l = div (length s) 2

main = do
  n <- toInt <$> getLine
  getLine >>= putStrLn . solve
