let words = Str.split (Str.regexp " ")
let chars s = List.init (String.length s) (String.get s)
let (>>) f g x = g (f x)

let [a; b; c; d] = read_line () |> chars |> List.map (Char.escaped >> int_of_string)

let ans =
  let rec solve bits =
    let sign = List.init 3 (fun i -> if bits land (1 lsl i) <> 0 then 1 else -1) in
    let x =
      List.combine sign [b; c; d]
      |> List.fold_left (fun acc pair -> acc + fst pair * snd pair) a
    in
    if x = 7 then bits else solve (bits + 1)
  in solve 0

let () =
  print_int a;
  print_string (if ans land 1 <> 0 then "+" else "-");
  print_int b;
  print_string (if ans land 2 <> 0 then "+" else "-");
  print_int c;
  print_string (if ans land 4 <> 0 then "+" else "-");
  print_int d;
  print_string "=7";
  print_newline ()
