program permutari;
type tabel=array[0..9] of byte;
var t,fr:tabel;
    n:longint;
    f1,f2:text;
procedure back(x:longint);
var i:longint;
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
fr[i]:=1; t[x]:=i; 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.