main = do
     n <- readLn
     print $ iterate f 100000 !! n

f :: Int -> Int
f = (`div` 100) . g . (*105)
    where
         g x = if x `mod` 100000 == 0
                  then x
                  else (*100000) $  (+1) $ x `div` 100000