import Data.Char
import Control.Monad

op "+" = (+)
op "-" = (-)

main = do
  [a,b,c,d] <- map digitToInt <$> getLine
  putStrLn $ head $ solve a b c d

solve a b c d = do
  let opss = ["+","-"]
  ops1 <- opss
  ops2 <- opss
  ops3 <- opss
  let op1 = op ops1
  let op2 = op ops2
  let op3 = op ops3
  guard (a `op1` b `op2` c `op3` d == 7)
  return (show a ++ ops1 ++ show b ++ ops2 ++ show c ++ ops3 ++ show d ++ "=7")
