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