let () =
  let rec charlist_of_string str n i =
    if i = n then [] else str.[i] :: charlist_of_string str n (i+1) in
  Scanf.scanf "%d\n%s\n" @@ fun n s ->
  let former = charlist_of_string (String.sub s 0 (n/2)) (n/2) 0 in
  let later = charlist_of_string (String.sub s (n/2) (n/2)) (n/2) 0 in
  let ans = List.fold_left2
      (fun ans x y -> if x=y then ans && true else false) true former later in
  Printf.printf "%s\n" (if ans && n mod 2 = 0 then "Yes" else "No")