ll n,k,s,a[6d4];{rd(n,k,a(n));sort(a,a+n);a[0..n]-=a[1..];sort(a,a+n);s-=a[k-1..n-2];wt(s);}