var f,g:text;
    s1,s2,s,n,k,i,nr,nr2:longint;
    a:array[1..1000000] of integer;
begin
     assign(f,'multimi2.in'); reset(f);
     assign(g,'multimi2.out'); rewrite(g);
     readln(f,n);
     s:=n*(n+1)div 2;
     for i:=1 to n do a[i]:=i;
     s1:=s div 2;
     s2:=s-s div 2;
     writeln(g,s mod 2);
     k:=n;
     while s1>0 do
     begin
          if s1<=a[k] then
          begin
               a[s1]:=0;
               s1:=0;
               inc(nr);
          end
          else
          begin
               s1:=s1-a[k];
               inc(nr);
               a[k]:=0;
               dec(k);
          end;
     end;
     writeln(g,nr);
     nr2:=n-nr;
     for i:=1 to n do
          if a[i]=0 then write(g,i,' ');
     writeln(g);
     writeln(g,nr2);
     for i:=1 to n do
          if a[i]<>0 then write(g,a[i],' ');
     writeln(g);
     close(g);
end.