main = do
     x <- read <$> getLine
     (putStrLn . show . solve x 100) 0


solve::Integer->Integer->Integer->Integer
solve x p count
    | p < x = solve x (p + p `div` 100) (count+1)
    | otherwise = count

