var a:array[1..64300]of byte;
 f,g:text;
  nr1,nr,dif,j:integer;
  n,i:longint;
begin
assign(f,'multimi2.in');
assign(g,'multimi2.out');
reset(f);
rewrite(g);
 readln(f,n);
 if n<65500 then
 begin
  for i:=1 to n do
     readln(f,a[i]);
  i:=n;
  while i-4>=0 do begin
          a[i]:=1;
          a[i-1]:=2;
          a[i-2]:=2;
          a[i-3]:=1;
          i:=i-4;
        end;
   nr1:=n div 4 * 2;

 Writeln(g,dif);
 writeln(g,nr1);
 for i:=1 to n do
    if a[i]=1 then write(g,i,' ');
 writeln(g);
 writeln(g,n-nr1);
 for i:=1 to n do
    if a[i]=2 then write(g,i,' ');
    end
 else begin
    case n mod 4 of
   0:begin dif:=0; nr1:=n div 4 * 2 end;
   1:begin dif:=1; nr1:=n div 4 *2 + 1 end;
   2:begin dif:=1; nr1:=n div 4 *2 + 1 end;
   3:begin dif:=0; nr1:=n div 4 * 2 + 2 end;
     end;
     writeln(g,dif);
     writeln(g,nr1);
     for i:=1 to nr1 do write(g,' ');
     writeln(g);
     writeln(g);
     writeln(g,n-nr1);
     for i:=nr1 to n do write(g,i,' ');
     end;
    close(f);
    close(g);
    end.