program multimi2;
var n,i,nr:longint;
    s,js,sn:int64;
    v:array[1..1000000]of 0..1;
    f,g:text;
begin
  assign(f,'multimi2.in');
  assign(g,'multimi2.out');
  reset(f);
  rewrite(g);
  readln(f,n);
  s:=0;
  if n>2 then
   nr := 2
  else
   nr:=1;
  s:=n*(n+1) div 2;
  js:=s div 2;
  if s mod 2=0 then
    i:=1
  else
    i:=2;
  sn:=i;
  v[i]:=1;
  while (js-sn>n)or(v[js-sn]=1) do
    begin
      i:=i+1;
      sn:=sn+i;
      v[i]:=1;
      nr:=nr+1;
    end;
  v[js-sn]:=1;
  writeln(g,abs(js-(s-js)));
  writeln(g,nr);
  for i:=1 to n do
    if v[i]=1 then
      write(g,i,' ');
  writeln(g);
  writeln(g,n-nr);
  for i:=1 to n do
    if v[i]=0 then
      write(g,i,' ');
  close(f);
  close(g);
end.