n,k=gets.split.map &:to_i
l=[]
n.times{
  w=gets.to_i
  if w<0
    if a=l.index(-w)
      l.delete_at(a)
    end
  else
    if l.select{|i|i>=w}.size<k
      l << w
    end
  end
}
p l.size