var N, D, i, k, t, max : integer;
f : text;
BEGIN
assign(f, 'input.txt');
reset(f);
readln(f, N, D); {читаем}
for i:=1 to N do begin
    read(f, t);{читаем одно число}
    if (i=1) or (i=N) then k:=D else k:=D*2; {все куски кроме первого и последнего имеют два узла}
    if t>k then max:=max+(t-k); {значит, мы если кусок больше D или D*2 соответственно, то мы прибавляем к длине каната его длину, минус длину, уйдущую на узлы}
end;
close(f);
assign(f, 'output.txt');
rewrite(f);
writeln(f, max); {запись}
close(f);
END.