import Control.Monad
import Data.List
main=do
    [d,n] <- map read.words<$>getLine::IO[Int]
    print $ case d of
        0 -> head $ drop (n-1) [a | a<-[1..], (a `mod` 100) /= 0] :: Int
        1 -> head $ drop (n-1) [a | a<-[100,200..], (a `mod` 10000) /= 0] :: Int
        2 -> head $ drop (n-1) [a | a<-[10000,20000..], (a `mod` 1000000) /= 0] :: Int
