program mul;
 var
  f:text;
  n,s,i:longint;
  d,n1,n2:byte;
  m1,m2: longint;
 begin
  assign(f,'multimi2.in');
  reset(f);
  read(f,n);
  close(f);
  if n*(n+1) mod 4=0 then d:=0
  else
  d:=1;

  i:=1; s:=0;
  while  s<(n*(n+1) div 4) do
   begin
    inc(n1);
    s:=s+i;
    inc(i);
   end;
  n2:=n-n1;
  assign(f,'multimi.out');
  rewrite(f);
  writeln(f,d);
  writeln(f,n1);
  for i:=1 to n1 do
   write(f,i,' ');
  writeln(f);
  writeln(f,n2);
  for i:=n1+1 to n do
   write(f,i,' ');
  close(f);
 end.