const nmax=100;
type stiva=array[1..nmax] of integer;
var f,g:text;
    x,y,l,m,n,i,o:longint;
    ap:array[1..nmax] of 0..1;
    st:stiva;
    q:boolean;
procedure back(k:longint);
var i,j:longint;
begin
     if k=N+1 then begin
                      For j:=1 To N-1 do
                          write(f,st[j],' ');
                      writeln(f,st[N]);
                   end
              else begin
                        For i:=1 To N do
                            begin
                                 St[k]:=i;
                                 q:=True;
                                 if ap[st[k]]=1 then q:=false;
                                 if q then begin
                                                ap[st[k]]:=1;
                                                back(k+1);
                                                ap[st[k]]:=0;
                                           end;
                            end;
                   end;
end;
begin
     assign(f,'permutari.in');reset(f);
     readln(f,n);
     close(f);
     assign(f,'permutari.out');rewrite(f);
     back(1);
     close(f);
End.