Program deque;
 var a:array [1..5000000] of longint;
     i,n,k,min,posmin,j:longint;
     b1:array [1..1 shl 16] of char;
     s:int64;
     fi,fo:text;
begin
assign(fi,'deque.in');
 assign(fo,'deque.out');
settextbuf(fi,b1);
reset(fi);
 rewrite(fo);
readln(fi,n,k);
for i:=1 to n do readln(fi,a[i]);
min:=a[1];
for i:=2 to k do
 if a[i]<=min then begin
                   min:=a[i];
                   posmin:=i;
                   end;
 s:=s+min;
for i:=k+1 to n do begin
   if a[i]<=min then begin
                      min:=a[i];
                      posmin:=i;
                      end;
  if posmin<i-k+1 then begin
  min:=a[i-k+1]; posmin:=i-k+1;
   for j:=i-k+2 to i do
    if a[j]<=min then begin
                          min:=a[j];
                          posmin:=j;
                          end;
    end;
 s:=s+min;
 end;
writeln(fo,s);
close(fo);
end.
    if