import Data.Maybe
main = do
  (a:b:c:d:_) <- getLine >>= return . (map (read . (\c -> [c]))) :: IO [Int]
  let op = ['+', '-']
  let eq = [(op1,op2,op3) | op1<-op, op2<-op, op3<-op]
  
  putStrLn $ (head . catMaybes) (map (\x -> f x a b c d) eq)
  where
    f (op1,op2,op3) a b c d
      | a `op1'` b `op2'` c `op3'` d == 7 = Just ((show a) ++ [op1] ++ (show b) ++ [op2] ++ (show c) ++ [op3] ++ (show d) ++ "=7")
      | otherwise = Nothing
      where
        op1' = g op1
        op2' = g op2
        op3' = g op3


    g '-' = (-)
    g '+' = (+)
