(define (main args)
  (let ([s (read-line)])
    (print
     (apply max (map string-length (string-split s (^x (not (char=? x #\…))))))))
  0)