splitBy p xs
 | null xs = []
 | p (head xs) = splitBy p (tail xs)
 | otherwise = (takeWhile (not.p) xs : splitBy p (dropWhile (not.p) xs))

main = do
 str <- dropWhile (=='ｗ') <$> getLine
 let maxl = maximum $ map length (splitBy (/='ｗ') str)
 let sws = zip (splitBy (=='ｗ') str) (splitBy (/='ｗ') str)
 putStrLn $ unlines $ map fst $ filter ((== maxl) . length . snd) sws