main :: IO ()
main = do
  line <- getLine
  let c = length $ takeWhile (=='c') line
      w = length line - c
      r = if c - 1 < w
             then c - 1
             else w
  putStrLn $ show r