import Control.Applicative

main :: IO ()
main = solve <$> readLn <*> getLine >>= putStrLn

solve :: Int -> String -> String
solve n s
  | as == bs = "Yes"
  | otherwise = "No"
  where
    (as, bs) = splitAt (n `div` 2) s
