(define s (read-line)) (print (+ (min (string-length (string-scan s "ccw" 'before)) (string-length (string-scan s "ccw" 'after))) 1))