func x = case (mod size 2) == 0 && (take halfSize x) == (drop halfSize x) of
            True -> "Yes"
            False -> "No"
    where
    size = length x
    halfSize = div size 2

main = do
    _ <- getLine
    x <- getLine
    putStrLn $ func x
