var i,n,dif,nr1:byte;
    f,g:text;
    a:array[1..100] of byte;
begin
     assign(f,'multimi2.in');
     assign(g,'multimi2.out');
     reset(f);
     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[1]:=1;
                  dif:=1;
                  nr1:=nr1+1;
                  end;
          2: begin
             a[1]:=1;
             a[2]:=2;
             dif:=2;
             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,' ');
    close(f);
    close(g);
end.