var f,g:text;
    n,i:longint;
begin
  assign(f,'multimi2.in'); reset(f);
  assign(g,'multimi2.out'); rewrite(g);
  read(f,n);
  if n mod 2=0 then
    if n mod 4=0 then
      begin
        writeln(g,'0');
        writeln(g,n div 2);
        for i:=1 to n div 4 do write(g,i,' ',n-i+1,' ');
        writeln(g);
        writeln(g,n div 2);
        for i:=n div 4+1 to n div 2 do write(g,i,' ',n-i+1,' ');
        writeln(g);
      end
                 else
      begin
        writeln(g,'1');
        writeln(g,n div 2);
        for i:=1 to n div 2 do write(g,i,' ');
        writeln(g);
        writeln(g,n div 2);
        for i:=n div 2+1 to n do write(g,i,' ');
        writeln(g);
      end;
  if n mod 2=1 then
    begin

    end;
  close(f); close(g);
end.