type stiva=array[1..20] of integer;
var n:integer;
	t:stiva;
	a,b:text;
	
procedure back(k,n:integer);
var i,j,c:integer;
begin
	if k>0 then
	begin
		if k-1=n then
		begin
			for j:=1 to n do
			write(b,t[j],' ');
			writeln(b);
		end;
		for i:=1 to n do
		begin
			c:=0;
		
			for j:=1 to k-1 do
			if t[j]=i then c:=1;
			
			if c=0 then
			begin
				t[k]:=i;
				back(k+1,n);
			end;			
		end;
    end;
end;

begin
assign(a,'permutari.in');
reset(a);
readln(a,n);
close(a);
assign(b,'permutari.out');
rewrite(b);
back(1,n);
close(b);
end.