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