module Main where

import Control.Applicative
import Control.Monad
import Data.List
import Text.Printf

op :: Char -> Int -> Int -> Int
op '+' = (+)
op '-' = (-)

calc :: Int -> Int -> Int -> Int -> [Char] -> Int
calc a b c d [s, t, u]
    = (flip (op u) d) . (flip (op t) c) . (flip (op s) b) $ a

main :: IO ()
main = do
    [a, b, c, d] <- fmap (read . (:[])) <$> getLine :: IO [Int]
    let cs = sequence $ replicate 3 ['+', '-']
    let [s, t, u] = head $ filter ((== 7) . calc a b c d) cs
    printf "%d%c%d%c%d%c%d=7\n" a s b t c u d