var f,g:text;   s,scon,sc:int64;
    i,n,con,j,nr:longint;
begin
assign(f,'multimi2.in'); reset(f);
assign(g,'multimi2.out'); rewrite(g);
read(f,n);
s:=n*(n+1) div 2;
if s mod 2=0 then begin sc:=s div 2; writeln(g,0); end
             else begin sc:=(s div 2)+1; writeln(g,1);  end;
i:=n;
while sc>0 do begin
if i<sc then begin sc:=sc-i; inc(con); end
             else begin j:=i+1; nr:=sc; sc:=0; inc(con); break; end;
dec(i);
end;
writeln(g,con);
for i:=n downto j do write(g,i,' ');
writeln(g,nr);
writeln(g,n-con);
for i:=1 to nr-1 do write(g,i,' ');
for i:=nr+1 to j-1 do write(g,i,' ');
close(g);
end.