program semne;
type vect = array [1..50000] of longint;
var A : vect;
    n,i,j : word;
    S,Sd : longint;
    f : text;
    ok : boolean;
begin
assign(f,'semne.in');
reset(f);

readln(f,n,S);

for i := 1 to n do
read(f,A[i]);

close(f);

repeat
i := 1;
if A[i]>0 then A[i] := A[i]*(-1)
          else repeat
               A[i] := (-1)*A[i];
               ok := true;
               inc(i);
               if A[i]<0 then ok := false;
               A[i] := A[i]*(-1);
               until ok;
Sd := 0;
for j := 1 to n do
Sd := Sd+A[j];

until S=Sd;

assign(f,'semne.out');
rewrite(f);

for i := 1 to n do
if A[i]<0 then write(f,'-')
          else write(f,'+');

close(f);

end.