import Control.Applicative
import Control.Monad
import Data.List
import Data.Array
import Data.Char

main = do
  [d, n] <- map (read::String -> Int) . words <$> getLine
  print $ if n < 100 then (100 ^ d) * n else (100 ^ d) * (n + 1)
