var x:array[1..100] of 0..1;
    i,n,s,sum:longint;
    v:array[1..100] of longint;
    f:text;

procedure verif;
begin
sum:=0;
for i:=1 to n do
    if x[i]=0 then sum:=sum-v[i]
    else sum:=sum+v[i];
if sum=s then
   begin
   assign(f,'semne.out');rewrite(f);
   for i:=1 to n do
       if x[i]=0 then write(f,'-')
       else write(f,'+');
   close(f);
   halt;
   end;
end;

procedure bkt(k:longint);
var i:longint;
begin
if k=n+1 then verif
else for i:=0 to 1 do begin
         x[k]:=i;
         bkt(k+1);
         end;
end;

procedure citire;
begin
assign(f,'semne.in');reset(f);
readln(f,n,s);
for i:=1 to n do read(f,v[i]);
close(f);
end;


begin
citire;
bkt(1);
end.