program back_tracking_permutari;
  var f:text;
      n:byte;
      a:array [1..9] of byte;
procedure backtracking(k:byte);
  var i,j:byte;
      b:boolean;
  begin
    if k=n+1 then begin
                    for i:=1 to n do write(f,a[i],' ');
                    writeln(f);
                  end
             else begin
                    for i:=1 to n do
                      begin
                        a[k]:=i;
                        b:=true;
                        for j:=1 to k-1 do if a[j]=a[k] then b:=false;
                        if b then backtracking(k+1);
                      end;
                  end;
  end;
begin
  assign(f,'permutari.in');
  reset(f);
  readln(f,n);
  close(f);
  assign(f,'permutari.out');
  rewrite(f);
  backtracking(1);
  close(f);
end.