var x,y:longint;
a:array[1..8] of integer;
b:array[-1..1] of char;
c:array[1..8] of longint;
d:array[1..8] of integer;
j,p,q:integer;
begin
readln(x);
for a[1]:=-1 to 1 do
for a[2]:=-1 to 1 do
for a[3]:=-1 to 1 do
for a[4]:=-1 to 1 do
for a[5]:=-1 to 1 do
for a[6]:=-1 to 1 do
for a[7]:=-1 to 1 do
for a[8]:=-1 to 1 do
begin
c[1]:=1;p:=1;
for j:=2 to 9 do
begin
if a[j-1]<>0 then begin p:=p+1;c[p]:=j;d[p]:=a[j-1];end else c[p]:=c[p]*10+j;
end;y:=c[1];
for j:=2 to p do y:=y+c[j]*d[j];
if y=x then
begin
write(1);for j:=1 to 8 do
begin
if a[j]=1 then write('+');
if a[j]=-1 then write('-');
write(j+1);
end;
writeln;
end;
end;
end.