main = do
  [a, b] <- (map read . words) <$> getLine
  putStrLn.show $ solved a b 1

solved:: Int -> Int -> Int -> Int
solved a b n
  | an > b = n
  | otherwise = solved an b (n + 1)
  where
    an = a * 2
 