($i,$K)=glob<>;`rev`=~s#.#$%+=($_[--$i]=$&!~x&!$%)-$_[$i+$K]#sger;print grep$_[$_],0..$K