import Data.List (group)

main :: IO ()
main = interact $ show . maximum . map length . group . concat . words