import qualified Data.ByteString.Char8 as BS
import qualified Data.Maybe as Maybe
import qualified Debug.Trace as Trace

solve :: Int -> String -> String
solve x s
    | ((mod x 2) /= 0) = "No"
    | (take (div x 2) s) == (drop (div x 2) s) = "Yes"
    | otherwise = "No"

main = do
    n <- (fst . Maybe.fromJust . BS.readInt) <$> BS.getLine
    s <- getLine
    let ans = solve n s
    putStrLn ans
