program p1;
var f,f1:text;
    n,i,q,w:1..50000;
    s1,s,a:longint;
    c:array[1..50000]of 0..1;
begin
assign(f,'semne.in');reset(f);
readln(f,n,s);
for i:=1 to n-1 do
    c[i]:=0;
c[n]:=1;
assign(f1,'semne.out');rewrite(f1);
repeat
s1:=0;
for i:=1 to n do
    begin
    read(f,a);
    if c[i]=0 then s1:=s1+a
              else s1:=s1-a;
    end;
if s1=s then begin
             w:=1;
             for i:=1 to n do
                 if c[i]=0 then write(f1,'+')
                           else write(f1,'-');
             end;
if c[n]=0 then c[n]:=1
          else begin
               q:=n;
               while c[q]=1 do
                     begin
                     c[q]:=0;
                     q:=q-1;
                     end;
               c[q]:=1;
               end;
close(f);
reset(f);
readln(f);
until w=1;
close(f);
close(f1);
end.