program p1;
var f,g:text;
    a,viz:array[1..10] of longint;
    n:longint;

procedure scrie;
var ii:integer;
begin
     write(g,a[1]);
     for ii:=2 to n do
     write(g,' ',a[ii]);
     writeln(g);
end;

procedure back(k:longint);
var i:longint;
begin
     if k=n+1 then scrie
     else
     for i:=1 to n do
     if viz[i]=0 then
     begin
        a[k]:=i;
        viz[i]:=1;
        back(k+1);
        viz[a[k]]:=0;
     end;
end;

begin
    assign(f,'permutari.in');reset(f);
    assign(g,'permutari.out');rewrite(g);
    read(f,n);
    back(1);
    close(f);
    close(g);
end.