import Data.List (group)

解く :: String -> Int
解く = 最大値 . fmap length . filter ('…' `elem`) . group
    where
        最大値 [] = 0
        最大値 リスト = maximum リスト

main :: IO ()
main = print . 解く =<< getLine