main :: IO ()
main = do
    num <- read <$> getLine
    putStrLn $ show $ resolveBank num


banking :: [Integer]
banking = 100 : 101 : (map truncate $ (zipWith (*) (cycle [(1.01 :: Double)]) (map fromIntegral $ tail banking)))

resolveBank :: Integer -> Integer
resolveBank num =
    let status = take 1 $ filter ((>= num) . fst) $ zip banking [0..]
    in  snd $ head status
