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) [(x a $ y b $ z c d, show a ++ f x ++show b ++ f y ++show c ++ f z ++ show d)|x<-[(+),(-)],y<-[(+),(-)],z<-[(+),(-)]]) ++ "=7"
 
f::(Int->Int->Int)->String
f (+) = "+"
f (-) = "-"
f _ = ""