main = do 
  a <- readLn
  s <- getLine
  let l = take (a `div` 2) s
  let l' = reverse $ take (a `div` 2) (reverse s)
  if (a `mod` 2) == 0 then if (l == l') then putStrLn "Yes" else putStrLn "No" else putStrLn "No"