import Data.Char

main = getLine >>= putStrLn . compute

compute :: String -> String
compute (c:s) = reverse $ ("7=" ++) $ fst $ head $ filter ((7 ==).snd) $ foldl step [([c],digitToInt c)] s

step sns c =
  [ (c:o:s,n+d) 
  | (s,n) <- sns
  , (o,d) <- [('+', digitToInt c), ('-', - digitToInt c)]
  ]
