let solve s = let rec solve' idx c_num w_num = if idx >= String.length s then (c_num, w_num) else let next_c_num, next_w_num = match s.[idx] with | 'c' -> c_num + 1, w_num | 'w' -> c_num, w_num + 1 | _ -> failwith "hoge" in solve' (idx + 1) next_c_num next_w_num in let c_num, w_num = solve' 0 0 0 in min (c_num - 1) w_num let () = let s = read_line () in solve s |> string_of_int |> print_endline