program multimi2;
var a,b,c: array[1..1000] of longint;
    sb,sc,n,d,p,i:longint;
    f,g:text;
begin
assign(f,'multimi2.in');
reset(f);
assign(g,'multimi2.out');
rewrite(g);
read(f,n);
sb:=0;
sc:=0;
d:=1;
p:=1;
for i:=1 to n do
if (i+i+1<=n) then begin
	b[d]:=i;
	sb:=b[d]+sb;
	inc(d);
	b[d]:=i+1;
	sb:=sb+b[d];
	c[p]:=i+i+1;
	sc:=sc+c[p];
	inc(p);
	end
	else begin
	b[d]:=i;
	sb:=sb+b[d];
	inc(d);
	c[p] :=i+1;
	sc:=c[p]+sc;
	inc(p);
	end;
dec(d);
dec(p);
writeln(g,sc-sb-2);
writeln(g,d-1);
for i:= 1 to d-1 do write (g,b[i],' ' );
writeln(g);
writeln(g,p-2);
for i:= 1 to p-2 do  write(g,c[i],' ' );
close(f);
close(g);
end.