program multimi2;
var f,g:text;
    n,t,c,i,s:longint;
begin
assign(f,'multimi2.in');
assign(g,'multimi2.out');
reset(f);
rewrite(g);
read(f,n);
if (n mod 4=0)or((n+1)mod 4=0)then writeln(g,'0')else writeln(g,'1');
if (n mod 2=0)then t:=(n div 2)*(n+1) else t:=((n+1)div 2)*n;
i:=n+1;
c:=0;
s:=0;
while (s<=(t div 2))do
  begin
    i:=i-1;
    s:=s+i;
    c:=c+1;
  end;
s:=s-i;
if (s=t div 2)then writeln(g,c-1) else writeln(g,c);
c:=c-1;
for i:=n downto n-c+1 do write(g,i,' ');
if (s<>t div 2)then writeln(g,(t div 2)-s) else writeln(G);
if (s=t div 2)then writeln(g,n-c) else writeln(g,n-c-1);
for i:=1 to n-c do
  if (i<>(t div 2)-s)then write(g,i,' ');
close(f);
close(g);
end.