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