var i,n:byte;
    a:array[1..	16] of boolean;
    v:array[0..16] of byte;
	f:text;
	
	
procedure submultimi(k:byte; nr:byte);
var i:integer;
begin
if nr=k+1 then begin
		for i:=1 to k do 
			write(f,v[i],' ');
		writeln(f);
		nr:=0;
end
else begin
	for i:=1 to n do
		if a[i]=true then begin
			a[i]:=false;
			v[nr]:=i;
			submultimi(k,nr+1);
		end;
if i=n then
	for i:=v[nr-1]+1 to n do a[i]:=true;
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);
	submultimi(i,1);
end;
close(f);
end.