solve :: [Int] -> Int
solve (d:n:_) =
    let li = filter (\x -> x `mod` 100^d == 0 && x `mod` 100^(d + 1) > 0) [1..1010000]
    in li !! (n - 1)

main :: IO ()
main = do
    n <- fmap (read :: String -> Int) . words <$> getLine
    (putStrLn . show . solve) n