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