($n,$k)=glob<>;
@a=sort{$a<=>$b}glob<>;
@b=sort{$b<=>$a}map{$a[$_+1]-$a[$_]}0..@a-2;
$s=$a[-1]-$a[0];
$s-=$_ for@b[0..$k-2];
print$s;