import Data.Char
import Text.Printf

main :: IO ()
main = do
  abcd <- getLine :: IO [Char]
  let zero = ord '0'
  let a:b:c:d:_ = map (\x -> (ord x) - zero) abcd
  let head:_ = [[op1, op2, op3] | op1 <- [-1, 1], op2 <- [-1, 1], op3 <- [-1, 1], a + op1 * b + op2 * c + op3 * d == 7]
  let op1:op2:op3:_ = map (\x -> if x > 0 then '+' else '-') head
  printf "%d%c%d%c%d%c%d=7\n" a op1 b op2 c op3 d

