program multimi2;

var n:longint;
	f:text;

procedure doit(sol,a,b,c,n1:longint);
var i:longint;
begin
writeln(f,sol);
writeln(f,n1);
if(c>1) then write(f,'1 ');
if(c=4) then write(f,'2 ');
for i:=c to n do
 	if (i mod 4 = a) or (i mod 4 = b) then
		write(f,i,' ');
writeln(f);
writeln(f,n-n1);
if(c=3) then write(f,'2 ');
if(c=4) then write(f,'3 ');
for i:=c to n do
 	if ((i mod 4) <> a) and ((i mod 4) <> b) then
		write(f,i,' ');
writeln(f);
end;

begin
assign(f,'multimi2.in');
reset(f);
read(f,n);
close(f);
assign(f,'multimi2.out');
rewrite(f);
if((n mod 4)=0) then doit(0,1,0,1,n div 2);
if((n mod 4)=1) then doit(1,2,1,2,n div 2+1);
if((n mod 4)=2) then doit(1,3,2,3,n div 2);
if((n mod 4)=3) then doit(0,0,3,4,n div 2+1);
close(f);
end.