> var
>   t,s:array[1..3000] of longint;
>   a,b,i,k,n:longint;
> begin
>   readln(n);
>   a:=0;
>   b:=0;
>   for i:=1 to n do
>     begin
>       read(s[i]);
>       if s[i]=0 then inc(a)
>                 else inc(b);
>     end;
>   readln;
>   k:=0;
>   i:=1;
>   if a<>0 then
>     begin
>       repeat
>         while s[i]<>0 do inc(i);
>         inc(i);
>         inc(k);
>         t[k]:=i;
>       until k=a;
>     end;
>   i:=1;
>   if b<>0 then
>     begin
>       repeat
>         while s[i]<>1 do inc(i);
>         inc(i);
>         inc(k);
>         t[k]:=i;
>       until k=n;
>     end;
>   for i:=1 to n do write(s[t[i]],' ');
>   writeln;
> end.