import Control.Monad

main = do
  [a, b, c, d] <- map read . words <$> getLine
  putStr $ head . solve a b c d

solve a b c d  = do
  op1 <- [(+), (-)]
  op2 <- [(+), (-)]
  op3 <- [(+), (-)]
  guard $ a `op1` b `op2` c `op3` d == 7
  return $ show a ++ show' op1
    ++ show b ++ show' op2
    ++ show c ++ show' op3 ++ show d

show' (+) = "+"
show' (-) = "-"