var v: array[1..100] of integer;
    used: array[1..100] of boolean;
    n: integer; 
    InFile, OutFile: text;
procedure back( k: integer );
var i: integer;
begin
     if k = n then
     	begin  
       	     for i:=1 to n do
                write( OutFile, v[i],' ' );
             writeln( OutFile );
        end
    else begin
         for i:=1 to n do 
            if false = used[i] then
               begin 
                     v[k+1]:=i;
                     used[i]:=true;
                     back( k+1 );
                     used[i]:=false;
               end;
         end;
end;

begin
   assign( InFile, 'permutari.in' );
   reset( InFile );
   readln( InFile, n);
   assign( OutFile, 'permutari.out' );
   rewrite( OutFile );
   back(0);
end.