program permutari;
var f,g:text; i,n:byte; st:array[1..8] of byte;
procedure afisare;
begin
For i:=1 to n do Write(g,st[i],' ');
Writeln(g);
end;
function valid(p:byte):boolean;
begin
valid:=true;
For i:=1 to p-1 do
 If st[i]=st[p] then valid:=false;
end;
procedure perm(p:byte);
var i:byte;
begin
For i:=1 to n do
 begin
 st[p]:=i;
 If valid(p) then
  If p=n then afisare
         else perm(p+1);
 end;
end;
begin
Assign(f,'permutari.in'); Reset(f);
Assign(g,'permutari.out');Rewrite(g);
Read(f,n); Close(f);
perm(1); Close(g);
end.