import Data.List

main :: IO ()
main = do
    [d,n] <- map read . words <$> getLine :: IO [Int]
    let d' = 100^d
        lis = filter ((/= 0) . (`rem` d'))
                $ if d == 0 then [1..]
                            else map (* d') [1..]
    print $ lis!!(n-1)
