var x:array[1..8] of longint;
n,i,j,k:longint;
procedure back(k:byte);
var i,j:byte;ok:boolean;
begin
if k=n+1 then
			begin
			for i:=1 to n do write(x[i],' ');
			writeln;
			end
		else
		for i:=1 to n do
		begin
		x[k]:=i;
		ok:=true;
		for j:=1 to k-1 do if x[j]=x[k] then ok:=false;
		if ok then back(k+1);
		end;
end;
begin
assign(input,'permutari.in');
assign(output,'permutari.out');
reset(input);
rewrite(output);
readln(N);
back(1);close(output);close(input);
end.