Module Module1

    Sub Main()

        Dim N As Integer = CInt(Console.ReadLine())
        Dim S As String = Console.ReadLine()
        Dim ret As String

        ret = "No"

        If N Mod 2 = 0 Then
            If S = Left(S, N / 2) & Left(S, N / 2) Then

                ret = "Yes"

            End If
        End If

        Console.WriteLine(ret)

        ' Console.ReadLine()

    End Sub

End Module
