var n,i,d1,d2: integer;
    a,even,odd: array[1..1000] of integer;
begin
    readln(n);
    d1:=0; d2:=0;
    for i:=1 to n do begin
        read(a[i]);
        if a[i] mod 2 = 0 then begin
            d1:=d1+1;
            even[d1]:=a[i];
        end else begin
            d2:=d2+1;
            odd[d2]:=a[i];
        end;
    end;
    for i:=1 to d1 do write(even[i],' ');
    writeln;
    for i:=1 to d2 do write(odd[i],' ');
end.

uses crt;
var arr : array[1..1000] of longint ;
    n, i : longint;
begin
    clrscr;
    readln(n);
    for i :=1 to n do read(arr[i]);
    for i := 1 to n do write(arr[i],' ');
    writeln;
    for i := 1 to n do 
        if arr[i] mod 2 = 0 then write(arr[i],' ');
    writeln;
    for i := 1 to n do 
        if arr[i] mod 2 <> 0 then write(arr[i],' ');
    writeln;
    
end.