import Control.Applicative
import Control.Monad
import Data.List
import Data.Array
import Data.Char

main = do
  [x, y] <- map (read::String -> Integer) . words <$> getLine
  print $ countPower x y


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