l=[]
_,k,*t=$<.read.split.map &:to_i
t.map{|w|i=(0...v=l.size).bsearch{|i|l[i]<w.abs}||v
l[i-u=-w==l[i-1]?1:0,u]=i<k&&w>0?[w]:[]}
p l.size