var n,i,dif,nr1:longint;
   f,g:text;
    begin
  assign(f,'multimi2.in');reset(f);
  assign(g,'multimi2.out');rewrite(g);
  read(f,n);
    case n mod 4 of
    0: begin dif:=0;
             nr1:=n div 4*2;
             end;
    1,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);
     i:=n;
     while i-4>=0 do  begin
     write(g,i,' ',i-3,' ');
       i:=i-4;
       end;
       case i of
       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.