eval"_,K,*A="+$<.read.split*?,
p A.sort![-1]+A[-K..-2].sum{[0,_1].max}