import Control.Monad
import Control.Applicative

solver :: [Int] -> Int
solver [d, n]
    | d == 0             = n
    | d == 0 && n == 100 = 101
    | n == 100           = (n+1) * (100^d)
    | otherwise          = n * (100^d)

main :: IO ()
main = getLine >>= print . solver . (map read) . words
