import Control.Monad
import Control.Applicative
import Data.List

main = do
    n <- readLn
    print (ans n)
    

ans n = head [k | k <- [0..2^n] , n <= 2^k]