main = do
    input <- readLn ::IO Int
    let
        plusminus = [1,-1]
        patterns = [[a,b,c,d]| a<-[1],b<-plusminus,c<-plusminus,d<-plusminus]
        a = div input 1000
        b = div input 100 `mod` 10
        c = div input 10 `mod` 10
        d = input `mod` 10
        result=map (\x->if x>=0 then '+':show x else show x)$tail$head$filter ((7==) . sum) $ map (zipWith (*) [a,b,c,d]) patterns
    putStrLn $ show a ++(foldl1 (++) result) ++"=7"
    

