var n,j:word;
    f,g:text;
    mark,sol:array[1..100] of byte;

procedure tipar();
var i:byte;
begin
        for i:=1 to n-1 do
                write(g,sol[i]);
        writeln(g,sol[n]);
end;

procedure back(k:byte);
var i:byte;
begin
        if (k=n+1) then
                tipar()
                        else

                                for i:=1 to n do
                                        if mark[i]=0 then begin
                                                sol[k]:=i;
                                                mark[i]:=1;
                                                back(k+1);
                                                mark[i]:=0;
                                                end;


end;

begin
        assign(f,'permutari.in');
        reset(f);
        read(f,n);
        close(f);

        for j:=1 to n do
                mark[j]:=0;

        assign(g,'permutari.out');
        rewrite(g);
        back(1);
        close(g);
end.