[cses-programming-tasks.git] / cses1069.hs

import Data.List 
 
main :: IO ()
main = do
  line <- getLine
  print $ maximum $ map length $ group line