import Data.List (group)

solve :: String -> Int
solve s
    | xs == []  = 0
    | otherwise = maximum $ map length xs
    where xs = filter ('…' `elem`) $ group s

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