main :: IO ()
main = do
    [x,y] <- map read . words <$> getLine
    print . length $ longestSequence x y

longestSequence :: Int -> Int -> [Int]
longestSequence x y = takeWhile (<=y) $ iterate (*2) x
