var n,i:longint;
begin
assign(input,'multimi2.in');reset(input);
assign(output,'multimi2.out');rewrite(output);
read(n);
 case n mod 4 of
  0:begin
     writeln('0');writeln(n div 2);
     for i:=1 to (n div 4) do write(2*i-1,' ');
     for i:=1 to (n div 4) do write((n div 2)+2*i,' ');
     writeln;
     writeln(n div 2);
     for i:=1 to (n div 4) do write(2*i,' ');
     for i:=1 to (n div 4) do write((n div 2)+2*i-1);
    end;
  3:begin
   writeln('0');writeln(n div 2);
   for i:=1 to (n div 4) do write(2*i,' ');
   for i:=1 to (n div 4)+1 do write((n div 2)+2*i,' ');
   writeln;
   writeln(n div 2+1);
   for i:=1 to (n div 4)+1 do write(2*i-1,' ');
   for i:=1 to (n div 4)+1 do write((n div 2)+2*i-1,' ');
  end;
  else writeln(1);
 end;
close(input);close(output);
end.