Program Permutari;

    var n : longint;
        a : array [1..8] of longint;
        v : array [1..8] of longint;
        fo, fi : text;
    Procedure back(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;
                                           back(k+1);
                                           v[i]:=0;
                                           end;
         end;
 begin
 assign(fi,'permutari.in'); reset(fi);
 assign(fo,'permutari.out'); rewrite(fo);
 read(fi,n);
 back(1);
 close(fi);
 close(fo);
 end.