import Data.Char

main :: IO ()
main = do
    xs <- map digitToInt <$> getLine
    putStrLn $ solve xs

solve :: [Int] -> String
solve [a, b, c, d]
    | a + b + c + d == 7 = show a ++ "+" ++ show b ++ "+" ++ show c ++ "+" ++ show d
    | a + b + c - d == 7 = show a ++ "+" ++ show b ++ "+" ++ show c ++ "-" ++ show d
    | a + b - c - d == 7 = show a ++ "+" ++ show b ++ "-" ++ show c ++ "-" ++ show d
    | a + b - c + d == 7 = show a ++ "+" ++ show b ++ "-" ++ show c ++ "+" ++ show d
    | a - b + c - d == 7 = show a ++ "-" ++ show b ++ "+" ++ show c ++ "-" ++ show d
    | a - b - c + d == 7 = show a ++ "-" ++ show b ++ "-" ++ show c ++ "+" ++ show d
    | a - b + c + d == 7 = show a ++ "-" ++ show b ++ "+" ++ show c ++ "+" ++ show d
    | otherwise          = show a ++ "+" ++ show b ++ "+" ++ show c ++ "+" ++ show d