import Data.Bits
import Data.Char

solve abcd b
    | x == 7 = y ++ "=7"
    | otherwise = solve abcd (b+1)
    where
        (x,y) = calc abcd b (show $ head abcd)
        calc :: [Int] -> Int -> String -> (Int, String)
        calc [x] b acc = (x,acc)
        calc (x:y:xs) b acc
            | b .&. 1 == 1 = calc ((x+y):xs) q (acc ++ "+" ++ show y)
            | otherwise = calc ((x-y):xs) q (acc ++ "-" ++ show y)
            where
                q = b `quot` 2

main = do
    abcd <- map digitToInt <$> getLine
    putStrLn $ solve abcd 0 