var n,s,s1,x,y,i,nr1,nr2,s2:longint;
f:text;
begin

assign(f,'multimi2.in');reset(f);
read(f,n);
close(f);
if n mod 2=0 then
s:=n div 2*(n+1)
else s:=(n+1) div 2*n;
s1:=s div 2;s2:=s-s1;
x:=n;
while(s1>n) do
 begin
  nr1:=nr1+1;
  s1:=s1-x;
  x:=x-1;
  end;
if(s1>0) then nr1:=nr1+1;
nr2:=n-nr1;
assign(f,'multimi2.out');rewrite(f);
if(s-s2=s2) then writeln(f,0)
else writeln(f,1);
writeln(f,nr1);
s1:=s div 2;
x:=n;
while(s1>x) do
 begin
write(f,x,' ');
  s1:=s1-x;
  y:=x;
  x:=x-1;
  end;
if(s1>0) then begin y:=s1; write(f,s1,' ');end;
writeln(f);
writeln(f,nr2);
for i:=1 to y-1 do
  write(f,i,' ');
for i:=y+1 to x do
  write(f,i,' ');
  close(f);
  end.