var a:array[1..100]of byte;
    n:byte; f:text;
procedure init;
var i:byte;
begin
 for i:=1 to n do a[i]:=i;
end;

procedure afis;
var i:byte;
begin
 for i:=1 to n do write(f,a[i]);
 writeln(f);
end;

procedure sw(var a,b:byte);
var t:byte;
begin
 t:=a; a:=b;b:=t;
end;

procedure perm(p:byte);
var i:byte;
begin
 if p>n then afis else
  for i:=p to n do
   begin
    sw(a[i],a[p]);
    perm(p+1);
    sw(a[i],a[p]);
   end;
end;

begin
 assign(f,'permutari.in');
 reset(f);
 readln(f,n);
 close(f);
 assign(f,'permutari.out');
 rewrite(f);
 init;
 perm(1);
 close(f);
end.