import Data.List (group)

solve :: String -> Int
solve = maximum . map length . filter ('…' `elem`) . group

main :: IO ()
main = print . solve =<< getLine