solve [] = 0
solve str@(x:xs) = maximum (solve xs : [i|i <- [1..length str], let s = take i str, s == reverse s])

main = do
	str <- getLine
	print $ solve str - (if str == reverse str then 1 else 0)