import qualified Data.ByteString.Char8 as BS

main = BS.getLine >> BS.getLine >>= print . compute

-- 先頭から、文字が変わる度に++していく

compute :: BS.ByteString -> Int
compute s = fst $ BS.foldl' step (1,BS.head s) s

step :: (Int,Char) -> Char -> (Int,Char)
step (i,c) x
  | c == x = (i,c)
  | True   = (succ i, x)
