module Main where
main = interact $ printer . solver . parser
int = read :: String -> Int

printer = unlines . (:[]) . show
parser = map int . words

solver [x,y] = length $ takeWhile (<=y) $ iterate (*2) x