var n:integer;
    a:array[1..15] of byte;
    v:array[1..15] of byte;
	f:text;

procedure permut(nr:integer);
var i:integer;
begin
if nr=n+1 then begin
    for i:=1 to n do write(f,v[i],' ');
 	writeln(f);
end else begin
	for i:=1 to n do begin
		if a[i]=0 then begin
		   a[i]:=1;
		   v[nr]:=i;
		   permut(nr+1);
		   a[i]:=0;
		end;
		   
	end;		
end;   
end;
begin
assign(f,'permutari.in');
reset(f);
read(f,n);
close(f);
assign(f,'permutari.out');
rewrite(f);
permut(1);
close(f);
end.