#!/usr/bin/runhaskell
import IO
main=do t<-(hGetContents stdin);putStrLn$show$foldl max 0$map length$lines t