(use gauche.collection)
(define s (read-line))
(print (+ (find-min (map string-length (string-split s "ccw"))) 1))