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