main :: IO ()
main = do
    input <- getLine
    putStrLn (show (disp input))

disp :: String -> Integer
disp input = list2 * (100 ^ list1)
        where
            list1  = read ( (words input) !! 0)
            list2  = if (read ( (words input) !! 1)) == 100
                then 101
                else (read ( (words input) !! 1))
