import Data.Char

main = do
    [a,b,c,d] <- map digitToInt <$> getLine :: IO [Int]
    let ans | a+b+c+d == 7 = show a ++ "+" ++ show b ++ "+" ++ show c ++ "+" ++ show d ++ "=7"
            | a+b+c-d == 7 = show a ++ "+" ++ show b ++ "+" ++ show c ++ "-" ++ show d ++ "=7"
            | a+b-c+d == 7 = show a ++ "+" ++ show b ++ "-" ++ show c ++ "+" ++ show d ++ "=7"
            | a+b-c-d == 7 = show a ++ "+" ++ show b ++ "-" ++ show c ++ "-" ++ show d ++ "=7"
            | a-b+c+d == 7 = show a ++ "-" ++ show b ++ "+" ++ show c ++ "+" ++ show d ++ "=7"
            | a-b+c-d == 7 = show a ++ "-" ++ show b ++ "+" ++ show c ++ "-" ++ show d ++ "=7"
            | a-b-c+d == 7 = show a ++ "-" ++ show b ++ "-" ++ show c ++ "+" ++ show d ++ "=7"
            | a-b-c-d == 7 = show a ++ "-" ++ show b ++ "-" ++ show c ++ "-" ++ show d ++ "=7"
            | otherwise = "Error"
    putStrLn ans