primes (n:ns) = n : primes (filter (/= n) ns)

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

    if d == 0 then print n
              else do
        let ns = [i*(100^d)|i <-[1..]]
        print $ ns !! (n-1)