var n,dif,nr1,i:longint;
    a:array[1..65500] of byte;
    var f,g:text;
begin
assign(f,'multimi2.in');reset(f);
assign(g,'multimi2.out');rewrite(g);
read(f,n);
   case n mod 4 of
0:   begin dif:=0;   nr1:=n div 4*2;   end;
1,2: begin dif:=1;   nr1:=n div 4*2+1; end;
3:   begin dif:=0;   nr1:=n div 4*2+2; end;
   end;
writeln(g,dif);
writeln(g,nr1);
i:=n;
while i-4>=0 do
             begin
             write(g,i,' ',i-3,' ');
             i:=i-4;
             end;
case i of
1,2:  write(g,1,' ');
3:    write(g,1,' ',2);
   end;
writeln(g);
writeln(g,n-nr1);
i:=n;
while i-4>=0 do begin
                write(g,i-1,' ',i-2,' ');
                i:=i-4;
                end;
case i of
2:write(g,2);
3:write(g,3);
end;
close(f);
close(g);
end.