n, k = read_line.split.map &.to_i
a = read_line.split.map(&.to_i).sort.reverse
pos = a.index {|i| i < 0}
pos = n if !pos
pos = 1 if pos == 0
pos = pos.clamp(1, k)
puts a[0, pos].sum