dp = 10.times.map{ [0]*1001 }
dp[0][0] = 1
(0..100).each do |i|
  8.downto(0) do |j|
    (0..1000).each do |k|
      break if k+i > 1000
      dp[j+1][k+i] += dp[j][k]
    end
  end
end

loop do
  n, s = gets.split.map(&:to_i)
  break if n == 0
  p dp[n][s]
end