var i,j,k,n,aux:longint;
    v:array[1..1000] of integer;
begin
assign(input,'permutari.in');
reset(input);
read(input,n);
close(input);
assign(output,'permutari.out');
rewrite(output);
for i:=1 to n do begin
    v[i]:=i;
    write(output,v[i],' ');
    end;
writeln(output);
repeat
      i:=n-1;
      while (i>0)and(v[i]>v[i+1]) do dec(i);
      if i>0 then begin
         for j:=n downto i+1 do
             if v[j]>v[i] then break;
         aux:=v[i];
         v[i]:=v[j];
         v[j]:=aux;
         j:=i+1; k:=n;
         while j<k do begin
               aux:=v[k];
               v[k]:=v[j];
               v[j]:=aux;
               inc(j);dec(k);
               end;
         for j:=1 to n do
             write(output,v[j],' ');
         writeln(output);
         end;
until i=0;
close(output);
end.