(defun main (&rest argv)
  (declare (ignorable argv))
  (let* ((s (read-line))
         (len-s (length s)))
    (loop for i from len-s downto 1 do
          (when (search (make-string i :initial-element #\…) s)
                (format t "~d~%" i)
                (return-from main)))
    (format t "0~%")))

(main)