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

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

while gets do
    n,s=$_.split(nil).map(&:to_i)
    break if n==0 && s==0
    puts ans[n][s]
end