var n,i,dif,nr1:longint;
a:array [1..10000] of byte;
   f,g:text;
    begin
  assign(f,'multimi2.in');reset(f);
  assign(g,'multimi2.out');rewrite(g);
  read(f,n);
  i:=n;
  while i-4>=0 do begin
    a[i]:=1;
    a[i-1]:=2;
    a[i-2]:=2;
    a[i-3]:=1;
    i:=i-4;
    end;
    nr1:=n div 4*2;
    case i of
    0:dif:=0;
    1:begin
    a[i]:=1;
    dif:=1;
    nr1:=nr1+1;
    end;
    2:begin
    a[i]:=1;
    a[2]:=2;
    dif:=1;
    nr1:=nr1+1;
    end;
    3:begin
    a[1]:=1;
    a[2]:=2;
    a[3]:=2;
    dif:=0;
    nr1:=nr1+2;
    end;
    end;
    writeln(g,dif);
    writeln(g,nr1);
    for i:=1 to n do
       if a[i]=1 then write(g,i,' ');
       writeln(g);
       writeln(g,n-nr1);
       for i:=1 to n do
         if a[i]=2 then write(g,i,' ');
         end.