import Control.Monad
import Control.Applicative
import Data.List
import Data.Array
strToInt s = (read :: String -> Int) s

main = do
    s <- getLine
    let [a,b,c,d] = map read (map enlist s)
    let sn = [a+b+c+d,a+b+c-d,a+b-c+d,a-b+c+d,a+b-c-d,a-b-c+d,a-b+c-d,a-b-c-d]
    let n = head (elemIndices 7 sn)
    putStrLn (ans n s)
    
    
enlist :: a -> [a]
enlist a = [a]

ans :: Int -> String -> String
ans n s
  | n == 0 = ([(s !! 0)] ++ "+" ++ [(s !! 1)] ++ "+" ++ [(s !! 2)] ++ "+" ++ [(s !! 3)] ++ "=7")
  | n == 1 = ([(s !! 0)] ++ "+" ++ [(s !! 1)] ++ "+" ++ [(s !! 2)] ++ "-" ++ [(s !! 3)] ++ "=7")
  | n == 2 = ([(s !! 0)] ++ "+" ++ [(s !! 1)] ++ "-" ++ [(s !! 2)] ++ "+" ++ [(s !! 3)] ++ "=7")
  | n == 3 = ([(s !! 0)] ++ "-" ++ [(s !! 1)] ++ "+" ++ [(s !! 2)] ++ "+" ++ [(s !! 3)] ++ "=7")
  | n == 4 = ([(s !! 0)] ++ "+" ++ [(s !! 1)] ++ "-" ++ [(s !! 2)] ++ "-" ++ [(s !! 3)] ++ "=7")
  | n == 5 = ([(s !! 0)] ++ "-" ++ [(s !! 1)] ++ "-" ++ [(s !! 2)] ++ "+" ++ [(s !! 3)] ++ "=7")
  | n == 6 = ([(s !! 0)] ++ "-" ++ [(s !! 1)] ++ "+" ++ [(s !! 2)] ++ "-" ++ [(s !! 3)] ++ "=7")
  | otherwise = ([(s !! 0)] ++ "-" ++ [(s !! 1)] ++ "-" ++ [(s !! 2)] ++ "-" ++ [(s !! 3)] ++ "=7")