const fi='bai1.inp';
      fo='bai1.out';
      maxn=101;
      oo=1000;
var a,b:array[0..maxn] of integer;
    n,c3,id3:integer;


procedure  nhap;
var i:integer;
begin
  readln(n);
  for i:=1 to n do
          read(A[i]);
end;


procedure  tinh3;
var  i,d,id:integer;
begin
    A[0]:=oo;
    A[n+1]:=-oo;
    c3:=-oo;
    d:=0;
    for i:=1 to n + 1 do
      if A[i]>A[i-1] then
        begin
            inc(d);
        end else
        begin
            if d>c3 then begin c3:=d; id3:=id;end;
            d:=1;
            id:=i;
        end;
    for i:=1 to c3 do
      b[i]:=A[id3+i-1];
end;


procedure swap(var x,y:integer);
var t:integer;
begin
  t:=x;
  x:=y;
  y:=t;
end;

procedure tinh12;
var i,j:integer;
begin
  for i:=1 to n-1 do
      for j:=i+1 to n do
        if A[i]>A[j] then swap(A[i],A[j]);
  for i:=1 to n do
    if A[i] mod 2 <>0 then write(A[i],' ');
  writeln;
  for i:=n downto 1 do
    if A[i] mod 2 =0 then write(A[i],' ');
    writeln;
    for i:=1 to c3 do
      write(b[i],' ');

end;

begin
  assign(input,fi);
  assign(output,fo);
  reset(input);
  rewrite(output);
  nhap;
  tinh3;
  tinh12;
  close(input);
  close(output);
end.