l=[]
eval'_,K,*T='+$<.read.split*?,
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