f

import Control.Applicative
import Control.Monad
import System.IO
import Debug.Trace

getMultipleLines :: Int -> IO [String]
getMultipleLines n
    | n <= 0 = return []
    | otherwise = do
        x <- getLine
        xs <- getMultipleLines (n-1)
        let ret = (x:xs)
        return ret

getCountRepeatingChars :: String -> Int
getCountRepeatingChars [] = 0
getCountRepeatingChars (_:[]) = 0
getCountRepeatingChars (x:(xs@y:z))
  | x == y = 1 + rest
  | otherwise = rest
  where rest = getCountRepeatingChars (y : z)

main :: IO ()
main = do
  linesToGet <- getLine
  a <- getMultipleLines (read linesToGet)
  let repeatChars = map getCountRepeatingChars a
  mapM_ print repeatChars