import Data.Char
import Control.Monad

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,op1) <- opss
  (ops2,op2) <- opss
  (ops3,op3) <- opss
  guard (a `op1` b `op2` c `op3` d == 7)
  return (show a ++ ops1 ++ show b ++ ops2 ++ show c ++ ops3 ++ show d ++ "=7")
