main =
  fmap (map read . words ) getLine >>= \[x,y] ->
  let z = y `div` x
      ans = if z > 0 then (solve z) + 1 else 0
  in print ans

-- 3,6,12,   24
-- 12 = 3 * 2^2
-- 20 = 3 * 2^2 + 8
-- 24 = 3 * 2^3
--
-- 8 = 2^3 + 0
-- 6 = 2^2 + 2

solve :: Integer -> Integer
solve 0 = 0
solve 1 = 0
solve n = 1 + solve (n `div` 2)