let explode s =
  let rec exp i l =
    if i < 0 then l else exp (i - 1) (s.[i] :: l) in
  exp (String.length s - 1) []
    
let rec take n l =
  match l with
    [] -> []
  | x :: xs ->
    if n = 0 then
      []
    else x :: take (n - 1) xs

let rec drop n l =
  match l with
    [] -> []
  | x :: xs ->
    if n = 0 then
      l
    else drop (n - 1) xs 

let () =
  let n = Scanf.sscanf (input_line stdin) "%d" (fun a -> a) in
  let s = Scanf.sscanf (input_line stdin) "%s" (fun a -> a) in
  let judge cs =
    let mae = take (n/2) cs in
    let ushiro = drop (n/2) cs in
    List.for_all2 (fun a b -> a = b) mae ushiro in
  let ans = if n mod 2 = 1 then "No" else if judge (explode s) then "Yes" else "No"
  in
  print_string ans;
  print_newline ()
