program Perm;
var
   fl : text;
   s : array[1..10] of longint;
   n, k : longint;

procedure back(k:longint);
var
  i, j : longint;
  y : boolean;
begin
   if k = n then
      begin
         for i := 1 to n do
            write(fl,s[i],' ');
         writeln(fl);
      end
   else
       begin
          for i := 1 to n do
             begin
                y := true;
                for j := 1 to k do
                   if s[j] = i then
                       begin
                          y := false;
                          break;
                       end;
                if y then
                   begin
                      s[k+1] := i;
                      back(k+1);
                   end;
             end;
       end;
end;
begin
   assign(fl,'permutari.in');
   reset(fl);
   readln(fl,n);
   close(fl);
   assign(fl,'permutari.out');
   rewrite(fl);
   back(0);
   close(fl);
end.