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