program permutari;
type tabel=array[0..8] of byte;
var t,fr:tabel;
    n:byte;
    f1,f2:text;
procedure back(x:byte);
var i:byte;
begin
if x=n+1 then begin
for i:=1 to n do write (f2,t[i],' ');
writeln (f2);
end else begin
for i:=1 to n do
if fr[i]=0 then begin
t[x]:=i; fr[i]:=1; back(x+1); fr[i]:=0;
end; end;
end;
begin
assign (f1,'permutari.in');
assign (f2,'permutari.out');
reset (f1);
rewrite (f2);
readln (f1,n);
back(1);
close (f1);
close (f2);
end.