main :: IO ()
main = do
  x <- read <$> getLine :: IO Double
  let ms = zip (moneyPowers firstMoney) ([0..])
  print . snd $ head $ filter ((>= x) . fst) $ ms
  where
    firstMoney :: Num a => a
    firstMoney = 100

moneyPowers :: Double -> [Double]
moneyPowers x = iterate moneyPower x

moneyPower :: Double -> Double
moneyPower x = fromIntegral . floor $ x * interest
  where
    interest = 1.01
