var fi,fo:text;
    n,rez1,rez2,nr:int64;
    aux,i:longint;
    sol1,sol2:array[1..1000000]of longint;
    ct1,ct2:longint;
begin
     assign(fi,'multimi2.in'); reset(fi);
     assign(fo,'multimi2.out'); rewrite(fo);
     read(fi,n);
     nr:=n*(n+1) shr 1;
     ct1:=0; ct2:=0;
     if nr and 1=1 then
       begin
        rez1:=(nr-1) shr 1 + 1;
        writeln(fo,'1');
       end
      else
       begin
        rez1:=nr shr 1;
        writeln(fo,'0');
       end;
      for i:=n downto 1 do
        begin
          if (rez1-i)<=0 then
            begin
              inc(ct1);
              sol1[ct1]:=rez1;
              aux:=rez1;
              break;
            end;
          inc(ct1);
          sol1[ct1]:=i;
          dec(rez1,i);
        end;
      writeln(fo,ct1);
      for i:=1 to ct1 do
        write(fo,sol1[i],' ');
      writeln(fo);
      writeln(fo,n-ct1+1);
      for i:=1 to n-ct1+1 do
        if i<>aux then
           write(fo,i,' ');
      2close(fi);
      close(fo);
end.