var s:array[1..10] of longint;  
     n,k:longint;  
   
 procedure back(k:longint);  
 var i,j:longint;  
     ok:boolean;  
 begin  
 if k=n then  
         begin  
         for i:=1 to n do  
                 write(s[i],' ');  
         writeln;  
         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(input,'permutari.in');reset(input);  
# assign(output,'permutari.out');rewrite(output);  
# readln(n);  
# back(0);  
# close(input);close(output);  
# end.