while gets
  n,s=$_.split.map(&:to_i)
  break if n==0&&s==0
  dp=Array.new(102).map{Array.new(n+1).map{Array.new(s+1,0)}}
  dp[0][0][0]=1
  for i in (1..101)
    for j in (0..n)
      for k in (0..s)
        x=k-i+1
        dp[i][j][k]=dp[i-1][j][k]+((j==0||x<0) ? 0 : dp[i-1][j-1][x])
      end
    end
  end
  puts dp[101][n][s]
end