program permutari;
var n,i,j,poz:integer;
ok:boolean;
a:array[1..10] of integer;
f,g:text;
procedure back(poz:integer);
VAR i,j:integer;
begin
  if poz=n then begin
    for i:=1 to n do write(g,a[i],' ');
    writeln(g);
                end
           else begin
    for i:=1 to n do
      begin
        ok:=true;
        IF poz=0 THEN ok:=TRUE
                 ELSE
        for j:=1 to poz do
          if a[j]=i then begin
                           ok:=false;
                           break;
                         end;
        if ok=true then begin
                          a[poz+1]:=i;
                          back(poz+1);
                        end;
      end;
                  end;
end;
begin
  assign(f,'permutari.in');reset(f);
  assign(g,'permutari.out');rewrite(g);
  readln(f,n);
  back(0);
  close(f);close(g);
end.