import Data.Char

main = do
    [d, n] <- map read . words <$> getLine
    putStrLn $ show $ ans d n

ans 0 n = last . take n $ filter (\x -> x `mod` 100 /= 0) [1..]
ans 1 n = last . take n $ filter (\x -> x `mod` 100 == 0 && x `mod` 10000 /= 0) [1..]
ans 2 n = last . take n $ filter (\x -> x `mod` 10000 == 0 && x `mod` 1000000 /= 0) [1..]
