var n,i:longint;
v:array[1..1000000] of longint;
begin
assign(input,'multimi2.in'); reset(input);
assign(output,'multimi2.out'); rewrite(output);
readln(n);
for i:=1 to n do v[i]:=i;
if n mod 2=0 then begin
writeln('0');
writeln(n div 2);
for i:=1 to n div 2 do if i mod 2=0 then write(i,' ',n-i+1,' ');
writeln; writeln(n div 2);
for i:=1 to n div 2 do if i mod 2=0 then write(i,' ',n-i+1,' ');
end;
close(input); close(output);
end.