import Debug.Trace

main = do
  [x,y] <- map read . words <$> getLine :: IO [Int]
  print $ solve x y

solve x y =
  ans
  where
    calc x' y' acc
      | x'>y' = acc
      | otherwise =
        traceShow x' $
        calc (x'*2) y' (acc+1)
    ans = calc x y 0
    
    
