import Control.Applicative ((<$>))

main :: IO ()
main = solve <$> map read <$> words <$> getLine >>= print

solve :: [Int] -> Int
solve [d, n] | d == 0 = ls !! (n-1)
             | d == 1 = map (*100) ls !! (n-1)
             | otherwise = map (*10000) ls !! (n-1)
  where ls = [1 .. 99] ++ [101]
