debt :: Integral a => a -> a
debt n
    | n == 0    = 100000
    | otherwise = 1000 * (ceiling $ (fromIntegral . debt $ n - 1) / 1000 * 1.05)

main = putStrLn . show . debt . read =<< getLine :: IO ()