var f,g:text;
    i,n,k:byte;
    x:array[1..9] of byte;

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

function cont(k:integer):boolean;
  var i:byte;
  begin
    for i:=1 to k-1 do if x[i]=x[k] then begin
      cont:=false;
      exit;
    end;
    cont:=true;
  end;

procedure afisare;
  var i:byte;
  begin
    for i:=1 to n do write(g,x[i],' ');
    writeln(g);
  end;

procedure back(k:byte);
  var i:byte;
  begin
    for i:=1 to n do begin
      x[k]:=i;
      if cont(k) then
        if k=n then afisare
          else back(k+1);
    end;
  end;

begin
  citire;
  back(1);
end.