var n,i:longint;
begin
assign(input,'multimi.in');reset(input);
assign(output,'multimi.out');rewrite(output);
readln(n);
 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=1 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;
 if n mod 4=1 then begin
  writeln('1');
  writeln(n div 2);
  for i:=2 to n div 2 do
  if i mod 2=0 then write(i,' ',n-i+2,' ');
  writeln;writeln(n div 2+1);write('1 ');
  for i:=3 to n div 2+1 do
  if i mod 2=1 then write(i,' ',n-i+2,' ');
 end;

close(input);close(output);
end.