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

solve :: Int -> String -> Bool
solve n s 
  | odd n = False
  | otherwise = let (t1, t2) = splitAt (n `div` 2) s in t1 == t2
    
