import Data.List
import Data.Ord
import Data.Char
import Data.Ratio
import Data.Maybe
import Control.Monad

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