main = do
    week <- readLn
    print $ debt initDebt debtRate week

initDebt = 100000
debtRate = 1.05

debt :: Int -> Double -> Int -> Int
debt money rate week = foldl (\x -> upvalue.mult x) money $ replicate week rate
    where upvalue = (*1000).ceiling.(/1000)
          mult x y = (fromIntegral x)*y