main :: IO()
main = readLn >>= print.(\n -> let l = floor $ logBase 2 $ fromIntegral n; k = 2 ^ l in solve n l k)

solve :: Int -> Int -> Int -> Int
solve n l k | n - k == 0 = l
            | otherwise  = l + 1