var
    f,g:text;
    s:array[1..10] of longint;
    n,k:longint;

procedure back(k:longint);
    var
        i,j:longint;
        ok:boolean;
    begin
        if k=n then
            begin
            for i:=1 to n do write(g,s[i],' ');
            writeln(g);
            end
        else
            begin
            for i:=1 to n do
                begin
                ok:=true;
                for j:=1 to k do
                    if s[j]=i then
                        begin
                        ok:=false;
                        break;
                        end;
                if ok then
                    begin
                    s[k+1]:=i;
                    back(k+1);
                    end;
                end;
            end;
    end;

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