(defun main (&rest argv) (declare (ignorable argv)) (let* ((s (read-line)) (c (count #\c s)) (w (count #\w s))) (format t "~d~%" (min (1- c) w)))) (main)