program multimi2;
var i,n,j,s1,p,k,s2:longint;
var a:array [1..1000000] of longint;
var f,g:text;
  begin
    assign(f,'multimi2.in') ; reset(f);
    assign(g,'multimi2.out');  rewrite(g);
    readLn(f,n);
    for i:=0 to n do
    begin
      a[i]:=i+1;
      for j:=1 to n do
        begin
           if a[i]-a[j] >1 then
           a[j]:=j+1
        else
               s1:=a[i]{+a[j]};
               s2:=a[j];
               writeLn(g,a[i]-a[j]);
        end;
        end;
        for p :=1 to i do
        begin
        for i:=1 to s1 do
   {     p:=p+1; }
        end;
          writeLn(g,p);
          for i:=1 to s1 do
          write(g,s1,' ');
        for k:=1 to j do
        begin
        for j:=1 to s2  do
    {    k:=k+1}
        end;
            writeLn(g,k);
            for i:=1 to s2 do
            write(g,s2,' ');
    close(f);
    close(g);
  end.