main :: IO()
main = do
  a <- getLine :: IO String
  putStrLn $ show $ min (length $ solve $ reverse a) (length a - length (solve (reverse a)) - 1)

solve :: [Char] -> [Char]
solve (x:xs)
 | x == 'c' = []
 | otherwise = [x] ++ solve xs