-- The pure mathematical logic, completely isolated from IO
solve :: Double -> Int
solve n = if n == 1 then 0 else floor (logBase 2 (n - 1)) + 1

-- The declarative IO pipeline
main :: IO ()
main = readLn >>= print . solve