eval'_,K,*T='+$<.read.split*?,
T.map{|w|i=$*.bsearch_index{|x|x<w.abs}||$*.size
$*[i-u=-w==$*[i-1]?1:0,u]=i<K&&w>0?w:[]}
p$*.size