script [] _ = 0
script _ [] = 0
script (x:xs) (y:ys)
 | x ==y =  script xs ys
 | otherwise = 1+ script xs ys

main = do
 str <- getLine
 let slen = length str
 let (f,b) = splitAt (div slen 2) str
 print $ script f $ reverse b