import Control.Monad
 
main = do
  a <- read <$> getChar
  b <- read <$> getChar
  c <- read <$> getChar
  d <- read <$> getChar
  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' (-) = "-"