module Main where

import Data.List.Split

algorithm :: Int -> Int ->  Int
algorithm d n = (n-((n-1) `div` 99))*100^d

process :: [String] -> String
process ls = case  splitOn " " $ head ls of
  [x, y] -> show $ algorithm (read x) (read y)
  _ -> "Wrong input"

main :: IO ()
main = do
  input <- getContents
  putStrLn $ process (lines input)