main :: IO ()
main = do
  [d, n] <- map read . words <$> getLine
  print $ solve d n 0

solve :: Int -> Int -> Int -> Int
solve d 0 x = x
solve d n x
  | x `mod` 10000 == 0 = solve d n (x+100)
  | otherwise = solve d (n-1) (x+100)

