dp = Array.new(10){ Array.new(1001){0} }
dp[0][0] = 1

0.upto(100) do |i|
  1000.downto(0) do |j|
    9.downto(1) do |k|
      dp[k][j] += dp[k-1][j-i] if j-i >= 0
    end
  end
end

while gets do
  n, s = $_.split(' ').map(&:to_i)
  break if n == 0 && s == 0
  puts dp[n][s]
en