import Control.Monad
import Data.Char
import Data.List
main=putStrLn.solve=<<getLine
solve abcd=g abcd.head.filter(f a bcd)$replicateM 3"+-"where
  (a:bcd)=map digitToInt abcd
f s(a:as)(op:ops)=f t as ops where
  t=case op of
    '+'->s+a
    '-'->s-a
f s _ _=s==7
g a b=(++"=7").concat.transpose$a:[b]