import Data.List
import Data.Function

main = getContents >>= \vvod -> let
	bitiki = filter (all (`elem` "01")) $ words vvod 
	baytiki = sobratBaytiki bitiki
	in mapM_ (putStrLn . intercalate " + ") baytiki

skleitBaytik bitiki = f 0 [] bitiki where
    f n baytik w@(~((c@(~(b:bs))):bitiki)) 
        | n==8           = [(baytik,w)]
        | 8<n || null w  = []
        | null c = f n baytik bitiki
        | otherwise      = take 1 (da ++ ne) where 
            da = f (n+length b) (b:baytik) (bs:bitiki)
            ne = map (fmap (c:)) (f n baytik bitiki)
                   
sobratBaytiki bitiki = 
    map fst $ concat $ takeWhile (/=[]) $ 
    iterate (skleitBaytik . snd . head)
    [([],podgotovit bitiki)]
    
podgotovit = groupBy ((==) `on` length) . sortBy (flip compare `on` length)