import qualified Data.Text as T
import qualified Data.Text.IO as T

main :: IO ()
main = do
    n <- readLn
    s <- T.getLine
    putStrLn $ solve n s

solve :: Int -> T.Text -> String
solve n s = if odd n then "No"
            else if T.take (n `div` 2) s == T.drop (n `div` 2) s then "Yes"
            else "No" 