import Data.Char
import Text.Printf

main :: IO ()
main = getLine >>= solve . fmap (\x -> ord x - ord '0')

solve :: [Int] -> IO () 
solve [a, b, c, d] = format $ head [(x, y, z) | (x, op1) <- [('+', (+)), ('-', (-))], (y, op2) <- [('+', (+)), ('-', (-))], (z, op3) <- [('+', (+)), ('-', (-))], (op3 (op2 (op1 a b) c) d) == 7]
    where
        format :: (Char, Char, Char) -> IO ()
        format (x, y, z) = printf "%d%c%d%c%d%c%d==7\n" a x b y c z d