

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