var fi,fo:text;
    sol:array[1..10]of byte;
    n,i:byte;
procedure print;
var i:byte;
begin
  for i:=1 to n do
    write(fo,sol[i],' ');
  writeln(fo);
end;
function verif(p:byte):boolean;
var i:byte;
begin
  for i:=1 to p-1 do
    if sol[i]=sol[p] then
      begin
        verif:=false;
        exit;
      end;
  verif:=true;
end;
procedure back(p:byte);
var i:byte;
begin
  for i:=1 to n do
    begin
      sol[p]:=i;
      if verif(p) then
        if p=n then print
               else back(p+1);
    end;
end;
begin
  assign(fi,'permutari.in'); reset(fi);
  assign(fo,'permutari.out'); rewrite(fo);
  read(fi,n);
  back(1);
  close(fi);
  close(fo);
end.