var i,n:integer;
    a:array[1..200] of boolean;
    v:array[1..200] of byte;
	f:text;

procedure servire(nr:integer; k:integer);
var i:integer;
begin
if nr=k+1 then begin
    for i:=1 to k do write(f,v[i],' ');
 	writeln(f);
end
else begin
	for i:=nr to n do begin
	if nr=1 then fillchar(a,sizeof(a),true);
		if (a[i]=true) and (i>v[nr-1]) then begin
		   a[i]:=false;
		   v[nr]:=i;
		   servire(nr+1,k);
		   end;  
	end;
	end;		
end;   

 
begin
assign(f,'submultimi.in');
reset(f);
read(f,n);
close(f);
assign(f,'submultimi.out');
rewrite(f);
for i:=1 to n do begin
	fillchar(a,sizeof(a),true);
	fillchar(v,sizeof(v),0);
	servire(1,i);
	end;
close(f);
end.