var n,i,j : longint;
    f,g : text;
procedure m4;
begin
  if (n mod 4=0)or(n mod 4=3) then writeln(g,'0')
    else writeln(g,'1');
  writeln(g,n div 2);
  i:=4+n mod 4;
  while i<=n do
  begin
    write(g,i-2,' ',i-1,' ');
    inc(i,4);
  end;
  if n mod 4=2 then write(g,'2 ');
  if n mod 4 =3 then write(g,'3 ');
  writeln(g);
  if n mod 2 =0 then writeln(g,n div 2)
     else writeln(g,n div 2+1);
  i:=4+n mod 4;
  while i<=n do
  begin
    write(g,i-3,' ',i,' ');
    inc(i,4);
  end;
  if (n mod 4=1)or(n mod 4=2) then write(g,'1 ');
  if n mod 4=3 then write(g,'1 2 ');
  writeln(g);
end;

begin
assign(f,'multimi2.in');reset(f);
assign(g,'multimi2.out');rewrite(g);
readln(f,n);
m4;
close(g);
end.