Module Module1

    Sub Main()

        Dim N As Integer = Console.ReadLine()
        Dim tmp As String = Console.ReadLine()
        Dim i, j As Integer
        Dim ans As Integer = 0

        i = 0
        Do Until i > N - 1
            ans += 1
            j = i + 1
            Do Until i > N - 1 Or Mid(tmp, i + 1, 1) <> Mid(tmp, j + 1, 1)
                j += 1
            Loop
            i = j
        Loop

        Console.WriteLine(ans)
        'Console.Read()

    End Sub

End Module
