var a,deque:array[1..5000000] of longint;
    suma:int64;
    cap,coada,n,k,i:longint;
    b1,b2:array[1..1shl 17] of char;
BEGIN
  assign(input,'deque.in');
  settextbuf(input,b1);
  reset(input);
  read(n,k);
  for i:=1 to n do
    read(a[i]);
  close(input);
  cap:=1;
  coada:=0;
  suma:=0;
  for i:=1 to n do
    begin
      while (cap<=coada) and (a[i]<=a[deque[coada]])
        do dec(coada);
      inc(coada);
      deque[coada]:=i;
      if deque[cap]=i-k then inc(cap);
      if i>=k then suma:=suma+a[deque[cap]];
    end;
  assign(output,'deque.out');
  rewrite(output);
  writeln(suma);
  close(output);
END.

END.