naive_solver::Integer->Integer->Int
naive_solver x y = let pow_2 = x:(map (2*) pow_2) in
                   length (takeWhile (y>=) pow_2)

main::IO()
main=do
  xyc<-getLine
  let x:y:[]=map read (words xyc)
  print (naive_solver x y)