main = do
  getLine
  a <- getLine
  putStrLn $ ans a

ans :: String -> String
ans s 
  | (length s) `mod` 2 == 1 = "No"
  | take ((length s) `div` 2) s == drop ((length s) `div` 2) s = "Yes"
  | otherwise ="No"
