Program p1;
var a : array[0..1000] of integer;
    n,j : integer;
    fin,fout : text;


Procedure back(k : integer);
var i : integer;
begin
if k>n then exit;
if (k<=n) and (k<>0) then
 begin
 for i:=1 to k do
 write(fout,a[i],' ');
 writeln(fout);
 end;

for i:=a[k]+1 to n do
begin a[k+1]:=i; back(k+1); end;
end;






begin
assign(fin,'submultimi.in');
reset(fin);
readln(fin,n);
close(fin);
assign(fout,'submultimi.out');
rewrite(fout);
back(0);
close(fout);
end.