program permutari;
var n:byte;
p:array[0..10] of byte;
f,g:text;
ok:boolean;
i,j,aux:byte;






begin
assign(f,'permutari.in');reset(f);
assign(g,'permutari.out');rewrite(g);
readln(f,n);
for i:=1 to n do p[i]:=i;

ok:=true;
while ok do
begin
 for i:=1 to n do
 write(g,p[i],' ');
 writeln(g);
 ok:=false;
 i:=n-1;
 while (p[i]>p[i+1]) and (i>=1) do
  i:=i-1;
 j:=n;
 if i>0 then
 begin
 while (p[j]<p[i]) do
  j:=j-1;
   ok:=true;
   aux:=p[i];p[i]:=p[j];p[j]:=aux;
   i:=i+1;
   j:=n;
   while i<j do
    begin
     aux:=p[i];p[i]:=p[j];p[j]:=aux;
     i:=i+1;j:=j-1;
    end;
  end;
end;

close(g);
end.