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

ans :: String -> String -> Int
ans [] _ = 0
ans _ [] = 0
ans (s:ss) (t:ts) = if s /= t then 1 + ans ss ts else ans ss ts