import Control.Monad
import Control.Applicative
import Data.Functor
import Data.List
import Data.Char

readInt = readLn :: IO Int
readInts = map read . words <$> getLine :: IO [Int]
cond t f c = if c then t else f
-- end of templete

ceil1e3 x = (x `div` 1000 + (if ((/=0) . flip mod 1000) x then 1 else 0)) * 1000
f x = ceil1e3 . (flip div 100 . (*105)) $ x

main = readInt >>= print . foldr ($) 100000 . flip replicate f