(defvar c)
(defvar w)

(setq c 0)
(setq w 1)
(loop for char = (read-char nil nil) do
	(if (eq char #\c) (incf c) (return))
)
(loop for char = (read-char nil nil) do
	(if (eq char #\w) (incf w) (return))
)

;(print c)
;(print w)
(format t "~d~%" (min (- c 1) w))