import Data.Char
import Control.Monad

main = do
  ns <- map digitToInt <$> getLine
  putStrLn $ solve ns operators

operators :: [(Int -> Int -> Int, Char)]
operators = [((+), '+'), ((-), '-')]

solve :: [Int] -> [(Int -> Int -> Int, Char)] -> String
solve [a, b, c, d] operators = (++"=7") . head $ do
  (op1, op1c) <- operators
  (op2, op2c) <- operators
  (op3, op3c) <- operators
  guard $ a `op1` b `op2` c `op3` d == 7
  return [intToDigit a, op1c, intToDigit b, op2c, intToDigit c, op3c, intToDigit d]