solve :: Integral a => a -> a -> a
solve d n
    | n == 100 = solve d 101
    | otherwise = (100 ^ d) * n

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