import Control.Monad

main :: IO ()
main = do
  ns <- map (subtract 48 . fromEnum) <$> getLine :: IO [Int]
  let candidate = solve ns
      c' = filter ((==7) . fst) candidate
  putStrLn $ snd (head c') ++ "=7" 

solve (n:ns) =
  map (foldl
        (\(acc, str) (op, tr) ->
            (toFunc op acc tr, str ++ op : show tr)) (n, show n)) fs
  where
    toFunc c
      | c == '+' = (+)
      | otherwise = flip subtract
    ops = replicateM 3 ['+', '-']
    fs = map (`zip` ns) ops
