      PROGRAM slimes
      IMPLICIT NONE
      INTEGER :: N, ans
      CHARACTER(10**5) :: s
      
      INTEGER :: i
      read*,N
      read*,s
      
      ans = 0
      DO i = 1,N-1
        IF( s(i:i)/=s(i+1:i+1) )THEN
          ans = ans + 1
        END IF
      END DO
      ans = ans + 1
      
      print*,ans
      
      END PROGRAM