var i,nr1,dif,n:byte;
    a:array [1..100] of byte;
    f,g:text;
begin
    assign(f,'multimi2.in');
    assign(g,'multimi2.out');
    reset(F);
    read(f,n);
    if n<65500 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:=nr1 div 4*2;
       case i of
       0: dif:=0;
       1: begin
         a[1]:=1;
         dif:=1;
         inc(NR1);
         end;
       2: begin
           a[1]:=1;
           a[2]:=2;
         dif:=2;
         inc(Nr1);
         end;
       3: begin
           a[1]:=1;
           a[2]:=1;
           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 write(g,',',i,' ');
       writeln(G);
       writeln(G);
       writeln(G,n-nr1);
        for i:=nr1+1 to n do write(g,',',' ');
 end;
 close(F);
 close(G);
 end.