(|>) :: a -> (a -> b) -> b
infixl 1 |>
x |> f = f x

($>) :: (Functor m) => m a -> (a -> b) -> m b
infixl 1 $>
x $> f = fmap f x

getNums = getLine $> words $> map read

solve :: Int -> Int -> Int
solve a b
    | a > b = 0
    | otherwise = 1 + solve (a * 2) b

main = do
    x:y:_ <- getNums :: IO [Int]
    solve x y |> print