var     i,j,r,n,sum,nr1,nr2:longint;
        v:array[1..1000000] of shortint;
        f,g:text;
begin
        assign(f,'multimi.in');
        assign(g,'multimi.out');
        reset(f);
        rewrite(g);

        readln(f,n);
        sum:=n*(n+1) div 2;
        if sum mod 2=0 then writeln(g,'0')
        else writeln(g,'1');
        sum:=sum div 2;

        nr2:=n;
        while r<sum do begin
                j:=0;
                for i:=1 to n do if v[i]=0 then j:=i;
                v[j]:=1;
                r:=r+j;
                nr1:=nr1+1;
                nr2:=nr2-1;
        end;
        writeln(g,nr1);
        for i:=1 to n do if v[i]=1 then write(g,i,' ');
        writeln(g);
        writeln(g,nr2);
        for i:=1 to n do if v[i]=0 then write(g,i,' ');
        close(f);
        close(g);
end.