S=$0{for(FS=_;v=X[$0=S]$++i;a[j]=s$0){$0=_
j+=v<p
$(i-length(s=a[j-=v>p]))=p=v}for(;i--+7;)if($0=a[-i])print}