program p1;
var a,v:array[0..100] of byte;
    f,g:text;
    i,n,j,k,u:longint;
    am,ev:boolean;
procedure back(k:integer);
begin
if k>n then begin
        for i:=1 to k-1 do write(g,a[i],' ');
        writeln(G);
        end
        else
        for i:=1 to n do
                if v[i]=0 then begin
                        v[i]:=1;
                        a[k]:=i;
                        back(k+1);
                        v[i]:=0;
                                end;
        end;

begin
assign(f,'permutari.in');reset(F);
assign(g,'permutari.out');rewrite(G);
readln(f,N);
back(1);
close(F);
close(G);
end.