import Control.Applicative
import Control.Monad

main :: IO ()
main = do
    s <- getLine
    putStrLn $ show $ solve s

solve :: String -> Int
solve s = (`div` 2) $ length $ filter (\(x, y) -> x /= y) $ zip s s_rev
    where s_rev = reverse s
