module Main where

import Control.Monad

main :: IO ()
main = do
    n <- readLn :: IO Int
    if n == 1
        then print 0
        else do
            let cs = length . takeWhile (< n) $ iterate (* 2) 2
            print (cs + 1)