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.