module Main where

main :: IO ()
main = interact (show . count 0 1 . read)

count :: Int -> Int -> Int -> Int
count c u x
  | u >= x    = c
  | otherwise = count (succ c) (u * 2) x