var n,i,k,m,p:longint;
    f,g:text;
begin
assign(f,'farfurii.in');
reset(f);
read(f,n,k);close(f);
assign(g,'farfurii.out');
rewrite(g);
p:=1;
while p<n do p:=p*2;
m:=0;
while p>0 do begin
if (m+p<=n)and((m+p)*(m+p-1)<=2*k) then m:=m+p;
p:=p div 2;
end;
k:=k-m*(m-1)div 2;
if k=0 then begin
            for i:=1 to n-m do write(g,i,' ');
            for i:=n downto n-m+1 do write(g,i,' ');
            end
            else begin
              k:=m-k;
              inc(m);
              for i:=1 to n-m do write(g,i,' ');
              write(g,n-k,' ');
              for i:=n downto n-k+1 do write(g,i,' ');
              for i:= n-k-1 downto n-m+1 do write(g,i,' ');
              end;
close(g);
end.