Select Code to Download

sub f{($s,$t)=@_;while($t->{d}ne$s){$t=$t->{(r,l)[$s lt$t->{d}]}||retu
+rn}$t}

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