import Control.Applicative
import Control.Monad
import Data.List
import Data.Array
import Data.Char

main = do
  arr <- map digitToInt <$> getLine
  putStrLn $ calc (tail arr) (7 - arr !! 0) (show (arr !! 0))

calc::[Int] -> Int -> String -> String
calc [] n s = if n == 0 then s ++ "=7" else ""
calc (x:rest) n s = let plus = calc rest (n - x) (s ++ "+" ++ show x)
                        minus = calc rest (n + x) (s ++ "-" ++ show x)
                    in if plus /= "" then plus else minus 