var i,nr,n:longint;
nr1,dif:integer;
f,g:text;
a:array[1..32000] of byte;
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: begin
dif:=1;
nr:=(n div 4)*2+1;
end;
2: begin
dif:=1;
nr:=(n div 4)*2+2;
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.