solve :: String -> String -> Int
solve [] [] = 0
solve (s:ss) (r:rs) = res + solve ss rs
  where res = if s == r then 0 else 1

main :: IO ()
main = do
  s <- getLine
  print . (`div` 2) . solve s $ reverse s