main = do
    getLine >>= return.solve.l >>= putStrLn

p = [[1,a,b,c] | a <- [1,-1], b <- [1,-1], c <- [1,-1]]

l [] = []
l (x:xs) = (read [x]) : (l xs)

solve :: [Int] -> String
solve x = f x p where
    f x (y:ys)
        | sum (zipWith (*) x y) == 7 = tail (showAns x y)
        | otherwise = f x ys

showAns [] [] = "=7"
showAns (x:xs) (y:ys)
    | y == 1 = "+" ++ (show x) ++ showAns xs ys
    | y == -1 = "-" ++ (show x) ++ showAns xs ys