var f,g:text;
    sol:array[0..101] of longint;
    use:array[0..101] of boolean;
    i,n:longint;
procedure afisare_sol;
 var i:longint;
 begin
  for i:=1 to n-1 do
   write(g,sol[i],' ');
  writeln(g,sol[n]);
 end;
procedure back(k:longint);
 var i:longint;
 begin
  if k>n then afisare_sol
   else
    for i:=1 to n do
     if not use[i] then begin
      use[i]:=true;;
      sol[k]:=i;
      back(k+1);
      use[i]:=false;
     end;
 end;
begin
assign(f,'permutari.in');reset(f);
assign(g,'permutari.out');rewrite(g);
read(f,n);
for i:=1 to n do use[i]:=false;
back(1);
close(f);
close(g);
end.