Program Submultimile_unei_multimi;
   var a:array[1..100] of byte;
       i,j,k,n,m:integer;
       s,q:string;
       fi,fo:text;
begin
assign(fi,'submultimi.in');
 assign(fo,'submultimi.out');
reset(fi);
 rewrite(fo);
  readln(fi,n);
  for i:=1 to n do a[i]:=i;
  for i:=1 to n do begin
    writeln(fo,i);
     for j:=i+1 to n do begin
       s:='';
       str(i,q); s:=s+q;
       str(j,q); s:=s+' '+q;
       writeln(fo,s);
          for k:=j+1 to n do begin
            str(k,q);
            s:=s+' '+q;
            q:='';
           writeln(fo,s);
          end;
      end;
    end;
close(fo);
end.