main::IO()
main = do
  n <- getLine
  ss <- getLine
  putStrLn $ show $ getSlimeNumber ss

getSlimeNumber :: [Char] -> Int
getSlimeNumber (s0:[]) = 1
getSlimeNumber (s0:s1:ss) = if s0 /= s1 then 1 + getSlimeNumber (s1:ss) else getSlimeNumber (s1:ss)