type mass = array[1..10000] of integer;
var a:mass; i,j:integer; fl:boolean; n:integer;
procedure excha(ia,ib:integer); var buffer:integer;
begin
  buffer:=a[ia]; a[ia]:=a[ib]; a[ib]:=buffer;
  fl:=false;
end;
begin
  readln(n);
  for i:= 1 to n do read(a[i]);
  repeat
    fl:=true;
    for i:= 1 to n-1 do
    begin
      if((a[i+1]<0) and (a[i]>=0)) then excha(i,i+1);
      if((a[i]=0) and (not(a[i+1]=0))) then excha(i,i+1);
    end;
  until fl;
  for i:=1 to n do write(a[i],' '); writeln;
end.