import Control.Monad
import Control.Applicative
import Data.List
import Data.Array
strToInteger s = (read :: String -> Integer) s

main = do
    [x,y] <- (map strToInteger . words) <$> getLine
    print $ 1 +  (solve x y)

solve :: Integer -> Integer -> Integer
solve x y = if (2 * x) <= y
            then 1 + (solve (2*x) y)
            else 0
