solve :: Int -> Int -> Int
solve x n
    | n == 0    = x
    | otherwise = if r == 0 then y else y + 1000 - r
        where y = solve x (n - 1) * 105 `div` 100
              r = y `mod` 1000

main :: IO ()
main = do
    n <- readLn
    print $ solve 100000 n