import Data.Char
 
main = do
  [a, b, c, d] <- map digitToInt <$> getLine
  let [sa, sb, sc, sd] = map show [a, b, c, d]
  putStr . head $
    [ sa ++ so o1 ++ sb ++ so o2
        ++ sc ++ so o3 ++ sd ++ "=7"
    | o1 <- os, o2 <- os, o3 <- os
    , a `o1` b `o2` c `o3` d == 7
    ]
 
os :: [Int -> Int -> Int]
os = [(+), (-)]
 
so :: (Int -> Int -> Int) -> String
so (+) = "+"
so (-) = "-"