loop do
  n,m = gets.split.map(&:to_i)
  break if (n|m)==0
  ps = gets.split.map(&:to_i)
  #ps.sort!{|a,b| b-a}
  ans = ps.inject(0){|sum,x| sum+x}
  ans =100

  ps.each_slice(m) do |arr|
    p a
    # tmp = a[-1]
    #  ans -= tmp if a.length == m
  end
  puts ans
end