import Data.List

solve :: Int -> Int -> Int
solve d n = head $ drop (n - 1) $ filter (\x -> x `mod` 100^(d + 1) /= 0) [100^d, 100^d*2..]

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