import Data.Char import Data.List main = getContents >>= print . maximum . map length . ("":) . filter (elem 'o') . group . filter isAlpha