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

solve :: Int -> String -> Bool
solve n s
  | odd n     = False
  | s1 == s2  = True
  | otherwise = False
  where
    (s1, s2) = splitAt (n `div` 2) s