program ccc
implicit none

integer :: n, i, res
character(100000) :: s
character(1) :: che

read*, n
read*, s

che=s(1:1)
res=1

do i=2, n
	if(s(i:i)/=che) then
		res=res+1
	end if
	che=s(i:i)
end do

write(*,'(i0)') res

end program