module Main where

import Data.List.Split


multipleList :: Int -> [Int]
multipleList n = [n*x | x <- [0..]]

algorithm :: Int -> Int ->  Int
algorithm d n = multipleList (100^d) !! n

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)