import qualified Data.Text as T main = getLine >>= print . maximum . map (length . T.unpack) . T.split (/= '…') . T.pack