loop do
  n, k = gets.split.map(&:to_i)
  break if n == 0
  a = []
  n.times { a << gets.to_i }

  max = a[0..k-1].inject(:+)
  1.upto(n - k) do |i|
    # p a, i, k
    val = max - a[i - 1] + a[i + k - 1]
    # p val
    max = val if val > max
  end

  puts max
end