sub f{($^,*_)=@_;*_=$_{(r,l)[$^lt$_{d}]}||return while$_{d}ne$^;*_}