Program permutari;
var s:array[1..10] of longint;
    n,k:longint;
    fi,fo:text;
procedure back(k:longint);
var i,j:longint;
    ok:boolean;
begin
if k=n then
        begin
        for i:=1 to n do
                write(fo,s[i],' ');
        writeln(fo);
        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(fi,'permutari.in');
  reset(fi);
 assign(fo,'permutari.out');
  rewrite(fo);
 readln(fi,n);
  back(0);
close(fo);
end.