_, k = gets.split.map(&:to_i)
a = gets.split.map(&:to_i).sort_by{|x| -x }
puts a[0...k].reject{|x| x < 0 }.inject(0, &:+)