var n:byte;
    f,g:text;
    mark,sol:array[1..8];

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

procedure back(k:byte);

begin
        if (k=n+1) then
                tipar()
                        else

                                for i:=1 to n do
                                        if mark[i]<>1 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);

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