var n:byte;
    a:array[1..9] of byte;
    duyet:array[1..9] of boolean;
    f:text;
procedure xuat;
      var j:byte;
begin
  for j:=1 to n do write(f,a[j],' ');writeln(f);
end;
procedure try(i:byte);
      var ii:byte;
begin
  if i<=n then
    begin
      for ii:=1 to n do
        if duyet[ii]=true then
          begin
             a[i]:=ii;
             duyet[ii]:=false;
             try(i+1);
             duyet[ii]:=true;
          end;
    end
   else xuat;
end;
begin
   assign(f,'HOANVI.INP');reset(f);
   readln(f,n);
   close(f);
   assign(f,'HOANVI.OUT');rewrite(f);
   fillchar(duyet,sizeof(duyet),true);
   try(1);
   close(f);
end.

const fi='HOANVI.INP';
    fo='HOANVI.OUT';
var n:byte;
    x:array[1..9]of longint;
    f:array[1..9]of boolean;
procedure print;
var j:byte;
begin
    for j:=1 to n do write(x[j]);writeln;
end;
procedure try(i:byte);
var j:byte;
begin
    for j:=1 to n do
        if f[j]=true then
            begin
                x[i]:=j;
                if i=n then print
                else
                    begin
                        f[j]:=false;
                        try(i+1);
                        f[j]:=true;
                    end;
            end;
end;
begin
    assign(input,fi);reset(input);
    assign(output,fo);rewrite(output);
        readln(n);
        fillchar(f,sizeof(f),true);
        try(1);
    close(output);
    close(input)
end.