var s:array[1..10] of longint;
        m,n,k:longint;f,g:text;

   procedure back(k:longint);
   var i,j:longint;
       ok:boolean;
   begin
    if k=n then
            begin
           for i:=1 to n do
                   write(g,s[i],' ');
           writeln(g);
           end
   else
           begin
           for i:=1 to n do
                   begin
                   ok:=true;
                   for j:=1 to k do
                           if s[j]=i then
                                   begin
                                   ok:=false;
                                   break;
                                   end;
                   if ok then
                           begin
                           s[k+1]:=i;
                           back(k+1);
                           end;
                   end;
           end;
   end;

   begin
   assign(f,'permutari.in'); reset(f);readln(f,n);
   assign(g,'permutari.out');
   rewrite(g);
   back(0);
   close(f);
   close(G);
   end.