program permutari;
var
t:array [0..10] of longint;
n:integer;
f1,f2:text;
procedure back(x:integer);
var
ok:boolean;
i,j:integer;
begin
if x=n then begin
for i:=1 to n do
write (f2,t[i],' ');
writeln (f2);
end else begin
for i:=1 to n do begin
ok:=true;
for j:=1 to x do
if t[j]=i then begin
ok:=false;
break;
end;
if ok then begin
t[x+1]:=i;
back(x+1);
end;
end;
end;
end;
begin
assign (f1,'permutari.in');
assign (f2,'permutari.out');
reset (f1);
rewrite (f2);
readln (f1,n);
back(0);
close (f1);
close (f2);
end.