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

solve :: Int -> Int -> Int
solve d n = (q * 100 + r + 1) * (100 ^ d)
  where q = n `div` 99
        r = n `mod` 99
