module Yuki open System let solve (str : string) = let chars = str.ToCharArray() let cntChar target = Array.where (fun c -> c = target) >> Array.length let cntC = chars |> cntChar 'c' let cntW = chars |> cntChar 'w' min (cntC - 1) cntW let S = Console.ReadLine() S |> solve |> Console.WriteLine