Program perm;
 var n:longint;
     fi,fo:text;
     a:array [1..10] of longint;
     v:array [1..10] of longint;

procedure backtracking(k:longint);
 var i:longint;
 begin
  if k=n+1 then begin
                 for i:=1 to n do write(fo,a[i],' ');
                 writeln(fo);
                end

            else
             for i:=1 to n do
              if v[i]=0 then begin
                               a[k]:=i;
                               v[i]:=1;
                               backtracking(k+1);
                               v[i]:=0;
                              end;
                 end;

Begin
 assign(fi,'permutari.in');
 assign(fo,'permutari.out');
 reset(fi); rewrite(fo);
 read(fi,n);
 backtracking(1);
 close(fo);
end.