main = do
  [d,n] <- map read . words <$> getLine
  let xs = if d == 0 then 
                     init $ take 100 [1..] ++ [110]
                     else 
                     init $ take 100 [(100^d), ((100^d)*2)..] ++ [(100^d)*101]
  print $ last $ take n xs
