import Data.Char

main :: IO()
main = do
  xs <- map (read . (:"")) <$> getLine
  xrs <- return $ reverse xs
  putStrLn $ extract $ filter eq7 $ showPattern $ enumeratePattern xrs

type Result = Int
type Expr = String
data Calc = Calc Expr Result deriving(Show)

extract :: [Calc] -> String
extract ((Calc e r):xs) = e ++ "=7"

eq7 :: Calc -> Bool
eq7 (Calc e r) = r == 7

showPattern :: [Calc] -> [Calc]
showPattern xs = map f xs
  where
    f (Calc e r) = Calc (reverse e) r

enumeratePattern :: [Int] -> [Calc]
enumeratePattern [x] = [Calc (show x) x]
enumeratePattern (x:xs) =  ys >>= f
   where
     ys = enumeratePattern xs
     d = intToDigit x
     f :: Calc -> [Calc]
     f (Calc y r') = [ Calc (d:'+':y) (r'+x), Calc (d:'-':y) (r'-x) ]
