main :: IO () main = do n <- readLn :: IO Int print $ ceiling $ logBase 2 (fromIntegral n)