program p1;
type niz=array[1..50] of integer;
var a:niz; n:integer;
procedure UnosNizaS(var x:niz;var n:integer);
var i,k,l,j:integer;
begin
  readln(n);
  readln(x[1]);
  for i:=2 to n do
  begin
    readln(k);
    if(k mod 2 =1) then a[i]:=k
    else
    begin
      j:=1;
      while(j<=i-1) and(a[j]mod 2=0)do
        j:=j+1;
      
      for l:=i-1 downto j do
        x[l+1]:=x[l];
      x[j]:=k;
    end;
  end;
end;
procedure IspisNizaS(x:niz;n:integer);
var i:integer;
begin
 writeln(n);
 for i:=1 to  n do
  write(x[i]:5);
 writeln;
end;

begin       
 UnosNizaS(a,n);
 IspisNizaS(a,n);
  
end.