{-# OPTIONS_GHC -O #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE ViewPatterns #-}

import Control.Monad
import Data.List
import Data.Char

main = do
    [a,b,c,d] <- map digitToInt <$> getLine :: IO[Int]
    let (Just (_,i,j,k)) = find (\(v,_,_,_) -> v == 7) [(a + b*i + c*j + d*k,i,j,k) |i<-[1,-1], j<-[1,-1], k<-[1,-1]]
    
    putStrLn $ show a ++ tos i ++ show b ++ tos j ++ show c ++ tos k ++ show d ++ "=7"
    where tos f
            | f == 1 = "+"
            | True = "-"