eval"N,K,*A="+`dd`.split*?,
A.sort.inject{|r,n|$*<<n-r;n}
p$*.min(N-K).sum