var v:array[1..100] of integer;
    k,j,n,t,c,i,l:integer;
    g,gg:text;
begin
 assign(g,'farfurii.in');reset(g);
 assign(gg,'farfurii.out');rewrite(gg);
 readln(g,n,t);
 j:=n;
 for k:= 1 to n do
  begin
   v[k]:=j;
   dec(j);
  end;
 c:=0;
 for k:= 1 to n-1 do
  for j:= k+1 to n do
     if v[k]>v[j] then
      inc(c);
 l:=1;
 while c<>t do
  begin
   if c>t then
    begin
   j:=v[l];
   v[l]:=v[n];
   inc(l);
   for k:=l to n do
    begin
     i:=v[k];
     v[k]:=j;
     j:=i;
    end;
    end
  else
   begin
    j:=v[l-1];
    v[l-1]:=v[n-1];
    dec(l);
    v[n-1]:=v[n];
    v[n]:=j;
   end;
  c:=0;
  for k:= 1 to n-1 do
   for j:= k+1 to n do
     if v[k]>v[j] then
      inc(c);
  end;
close(g);
 for k:= 1 to n do
   write(gg,v[k],' ');
close(gg);
end.