var f,g:text;
    n,i:longint;
    nr1,dif,j:integer;
begin
  assign(f,'multimi2.in');
  reset(f);
  assign(g,'multimi2.out');
  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:=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-3,' ',i-2,' ');
                    i:=i-4;
                  end;
  case i of
  2:write(g,2);
  3:write(g,3);
  end;
  close(g);
  close(f);
end.