import Data.Char

main = do
  ds <- map digitToInt <$> getLine
  putStr $ solve "" id ds

solve str f [d] = if f d == 7 then reverse ("7="++intToDigit d:str) else ""
solve str f (d:ds)
  = max (solve ('+':intToDigit d:str) (f d+) ds) (solve ('-':intToDigit d:str) (f d-) ds)