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