import qualified Data.ByteString.Char8 as B

main :: IO ()
main = solve <$> B.getLine >>= print

solve :: B.ByteString -> Int
solve s = sum [1 | (c, c') <- B.zip s s', c /= c'] `div` 2
  where s' = B.reverse s
