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.