var m,n,i:longint;
function measure(l,r:longint):longint;
begin
 if l>n then measure:=0 else
  if r>n then
   measure:=n-l+1
  else measure:=measure(2*l,2*r+1)+r-l+1
end;
begin
 readln(m,n);
 while (m<>0)and(n<>0)do
  begin
   writeln(measure(m,m));
   readln(m,n)
  end
end.
/**************************************************************
	Problem: 2190
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/