loop do
    n, s = gets.split.map(&:to_i)
    break if n == 0
    rs = (1..n).map { gets.to_i }

    if n == 1
        puts 0
        next
    end

    num = 0
    (0..n-2).each do |i|
        j = rs.rindex {|x| rs[i] + x < s}
        if !j
            num += n - 1 - i
        elsif j <= i
            num += n - 1 - i
        else
            num += n - j
        end
    end
    p num
end