main = do
  li <- getLine
  let ans = compute li
  print ans

compute :: String -> Int
compute cs = length $ filter id $ zipWith (/=) as bs
  where
    l = length cs `div` 2
    as = take l cs
    bs = take l (reverse cs)
