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

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

ans n = minimum [k | k <- [1..2^n] , n <= 2^(k-1)]