var n,nr1,dif,i:longint;
    f:text;
begin
assign(f,'multimi2.in'); reset(f);
read(f,n);
close(f);
assign(f,'multimi2.out'); rewrite(f);
i:=n div 4;
case n mod 4 of
             0:   begin nr1:=2*i;   dif:=0; end;
             1,2: begin nr1:=2*i+1; dif:=1; end;
             3:   begin nr1:=2*i+2; dif:=0; end;
end;
writeln(f,dif);
writeln(f,nr1);
i:=n;
while i-4>=0 do begin
                 write(f,i,' ',i-3,' ');
                 i:=i-4;
                 end;
if (i=1) or (i=2) then write(f,1)
                  else if i=3 then write(f,'1 2');
writeln(f);
writeln(f,n-nr1);
i:=n;
while i-4>=0 do begin
                 write(f,i-1,' ',i-2,' ');
                 i:=i-4;
                 end;
if i=2 then write(f,2)
       else if i=3 then write(f,3);
close(f);
end.