import Control.Monad
import Data.List
import Data.Char

main = do
    nums <- map digitToInt <$> getLine
    putStrLn $ solve operatorCombi nums
    

-- 使う演算子たち
operators = ["+", "-"]

-- 取りうる演算子の組み合わせ
operatorCombi =
    [(a, b, c) 
    | a <- operators
    , b <- operators
    , c <- operators
    ]

type Op = String

-- 数値の一覧に演算子をそれぞれ適用した結果7になる式を文字列で返す
solve :: [(Op, Op, Op)] -> [Int] -> String
solve (op:ops) operands =
    if (apply op operands) == 7 then
        expStr op operands
    else
        solve ops operands


apply :: (Op, Op, Op) -> [Int] -> Int
apply (op1s, op2s, op3s) [n1, n2, n3, n4] = n1 `op1` n2 `op2` n3 `op3` n4
    where toF "+" = (+)
          toF "-" = (-)
          toF otherwise = \_ _ -> 0
          op1 = toF op1s
          op2 = toF op2s
          op3 = toF op3s


expStr :: (Op, Op, Op) -> [Int] -> String
expStr (op1, op2, op3) [n1, n2, n3, n4] =
    show n1 ++ op1 ++ show n2 ++ op2 ++ show n3 ++ op3 ++ show n4 ++ "=7"
