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

main = do
  t <- readLn

  putStrLn $ show $ solve t

solve :: Int -> Int
solve n = numx n

numx :: Int -> Int
numx n = (ceiling (logBase 2 (fromIntegral n ))) 

lastx :: Int -> Int
lastx n
  | (mod n 2) == 0 = 0
  | otherwise = 1