var n,i:longint;
    v:array[1..1000000] of longint;
begin
assign(input,'multimi2.in');reset(input);
assign(output,'multimi2.out');rewrite(output);
readln(n);
 for i:=1 to n do v[i]:=i;
 if n mod 2=0 then begin
  writeln('0');
  writeln(n div 2);
  for i:=1 to n div 2 do if i mod 2=1 then write(i,' ',n-i+1,' ');
  writeln;writeln(n div 2);
  for i:=1 to n div 2 do if i mod 2=0 then write(i,' ',n-i+1,' ');
 end;
close(input);close(output);
end.