var n, i,dif, nr1: longint;
    f,g: text;
begin
assign (f, 'multimi2.in');
assign (g, 'multimi2.out');
reset (f);
rewrite (g);
readln (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:=1;
   nr1:= n div 4*2+2;
   end;
end;
writeln (g, dif);
writeln (g, nr1+1);
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, i, ' ', 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.