import Control.Monad

solve :: [Int] -> [[(String, Int -> Int -> Int)]] -> [String]
solve _ [] = []
solve params@[a, b, c, d] ([(c1, p1), (c2, p2), (c3, p3)]:ops)
  | a `p1` b `p2` c `p3` d == 7 = formula:solve params ops
  | otherwise = solve params ops
    where formula = concat [show a, c1, show b, c2, show c, c3, show d, "=7"]

main :: IO ()
main = do
  s <- map (read . (:[])) <$> getLine
  putStrLn . head . solve s $ replicateM 3 [("+", (+)), ("-", (-))]