var i,n:integer;
    a:array[1..100] of boolean;
    v:array[1..100] 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:=1 to n do
		if a[i]=true then begin
		   a[i]:=false;
		   v[nr]:=i;
		   servire(nr+1,k);
		   a[i]:=true;
		   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.