var f,g:text;
    s,n,i,x,k,st,dr:longint;
    a,o:array[1..5000000] of longint;
begin
    assign(f,'deque.in'); reset(f);
    assign(g,'deque.out'); rewrite(g);
    readln(f,n,k); s:=0;
    st:=1; dr:=0;
    for i:=1 to k do
       begin
          readln(f,a[i]);
          while (st<=dr) and (a[i]<=a[o[dr]]) do
             dec(dr);
          inc(dr); o[dr]:=i;
       end;
    s:=s+a[o[st]];
    for i:=k+1 to n do
       begin
          readln(f,a[i]);
          if o[st]+k-i=0
             then inc(st);
          while (st<=dr) and (a[i]<=a[o[dr]]) do
             dec(dr);
          inc(dr); o[dr]:=i;
          s:=s+a[o[st]];
       end;
    writeln(g,s);
    close(f); close(g);
end.