{-# OPTIONS_GHC -O2 -funbox-strict-fields #-}
import qualified Data.ByteString.Char8 as BC
import           Data.Int              (Int64)
import           Data.Maybe            (fromJust)

main :: IO ()
main = do
  [x, y] <- readInts
  print $ solve x y

readInts :: IO [Int64]
readInts = map read . words <$> getLine

solve :: Int64 -> Int64 -> Int64
solve x y = go 1 x
  where
    go i x
      | x * 2 <= y = go (i + 1) (x * 2)
      | otherwise = i
