import Data.Char
import Data.List
main = do
 abcd<-getLine
 let a = digitToInt (abcd !! 0)
 let b = digitToInt (abcd !! 1)
 let c = digitToInt (abcd !! 2)
 let d = digitToInt (abcd !! 3)
 putStrLn $ snd(head (filter (\s->(fst s)==7) [(g z (g y (g x a b) c) d, show a ++ f x ++show b ++ f y ++show c ++ f z ++ show d)|x<-[0,1],y<-[0,1],z<-[0,1]])) ++ "=7"
 
f::Int->String
f 0 = "+"
f 1 = "-"
f _ =""
g::Int->Int->Int->Int
g 0 = (+)
g 1 = (-)