import Control.Applicative ((<$>), (<*>))
import Control.Monad
import Data.List

main :: IO ()
main = do
  [n, s] <- getl $ split toInt
  when (n /= 0 || s /= 0) $ do
    print $ solve n s
    main

solve :: Int -> Int -> Int
solve n s = sum $ map (\i -> count (s - i) (n - 1) i) [0 .. 100]

count :: Int -> Int -> Int -> Int
count s n i
  | n == 0 = if s == 0 then 1 else 0
  | s < 0 = 0
  | otherwise = sum $ map (\j -> count (s - j) (n - 1) j) [i+1 .. 100]

toInt :: String -> Int
toInt s = read s

split :: (String -> a) -> String -> [a]
split f = map f . words

getl :: (String -> a) -> IO a
getl f = f <$> getLine