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