program edi;
var f,g:text;
 i,j,n,m,x,aux:longint;
 v: array [1..100] of integer;
begin
 assign(f,'fis.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
    if v[i]=v[j]+1 then begin
    aux:=v[i];v[i]:=v[j];
    v[j]:=aux;x:=x-1;
    end;
 assign(g,'fis.out');
 rewrite(g);
 for i:=1 to n do
  write(g,v[i],' ');
 close(g);
end.