main = do
    abcd <- getLine

    let [a,b,c,d] = [read [x] :: Int | x <- abcd]
    let binary = [[x,y,z] | x <- [0,1], y <- [0,1], z <- [0,1]]
    let [x,y,z] = head (dropWhile (\bi -> f [a,b,c,d] bi /= 7) binary)

    putStrLn $ show a ++ op x ++ show b ++ op y ++ show c ++ op z ++ show d ++ "=7"


f [a,b,c,d] [x,y,z] = a + b * (-1)^x + c * (-1)^y + d * (-1)^z

op 0 = "+"
op 1 = "-"