($i,$K)=glob<>;$_=<>;chop;$%+=($_[$i]=chop!~x&!$%)-$_[$i+$K]while$i--;print grep$_[$_],0..$K