Public Class Program
  Shared Sub Main()
    Dim n As Long = Long.Parse(Console.ReadLine())
    Dim s As String = Console.ReadLine()
    Dim ans As Long = 1
    For i As Long = 0 To n - 2
      If s(i) <> s(i + 1) Then ans += 1
    Next
    Console.WriteLine(ans.ToString())
  End Sub
End Class