var i,n,dif,nr1:byte;
    f,g:text;
    a:array[1..64000] of byte;
begin
     assign(f,'multimi2.in');
     assign(g,'multimi2.out');
     reset(f);
     rewrite(g);
     read(f,n);
     if n<65000 then begin
     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;
end
   else begin
        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);
    For i:=1 to nr1 do
    writeln(g,i,' ');
    writeln(g);
    writeln(g);
    writeln(g,n-nr1);
    For i:=nr1+1 to 2 do
    writeln(g,i,' ');
end;
    close(f);
    close(g);
end.