import Control.Applicative

main = do
    [d,n] <- map read . words <$> getLine
    print $ solve d n

solve :: Int -> Int -> Int
solve d n | d == 0 = (filter (\x-> mod x 100 /= 0) [1..]) !! (n-1)
          | d == 1 = (filter (\x-> mod x 100 /= 0) [1..]) !! (n-1) * 100
          | d == 2 = (filter (\x-> mod x 100 /= 0) [1..]) !! (n-1) * 10000