Program p1;
var n : integer;
    a : array[1..20] of integer;
    fin,fout  : text;



Procedure back(k : integer);
var i : integer;
begin
if (k>n) then exit;
if (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.