n,k=gets.split.map(&:to_i)
aNs = gets.split.map(&:to_i).sort.reverse
puts aNs[0] < 0 ? aNs[0] : aNs[0...k].select{|num| num >= 0 }.inject(:+)