program edi;
var f,g:text;
 i,j,n,m,x,aux:longint;
 v: array [1..100] of integer;
begin
 assign(f,'farfurii.in');
 reset(f);
 readln(f,n,m);
 close(f);
 for i:=1 to n do
  v[i]:=n-i+1;
 for i:=1 to n do
  for j:=i to n do
   if v[i]>v[j] then
    inc(x);
 for i:=1 to n do
  for j:=i to n do
   if x>m then begin
    aux:=v[i];v[i]:=v[j];v[j]:=aux;x:=x-1;
    end;
 assign(g,'farfurii.out');
 rewrite(g);
 for i:=1 to n do
  write(g,v[i],' ');
 close(g);
end.