var 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(s[i],' ');
        writeln;
        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(input,'permutari.in');reset(input);
assign(output,'permutari.out');rewrite(output);
readln(n);
back(0);
close(input);close(output);
end.