import Control.Applicative
import Control.Monad
import Data.Char (digitToInt)

main :: IO ()
main = solve <$> getLine >>= putStrLn

solve :: String -> String
solve [sa, sb, sc, sd] = head $ do
  op1 <- "+-"
  op2 <- "+-"
  op3 <- "+-"
  guard $ f op3 (f op2 (f op1 a b) c) d == 7
  return [sa, op1, sb, op2, sc, op3, sd, '=', '7']
  where
    
    [a, b, c, d] = map digitToInt [sa, sb, sc, sd]
    f '+' x y = x + y
    f '-' x y = x - y
