for(A;B;C){}
A;C while B;

##</code><code>##

sub f {
$t=pop;$t=$$t{$c>0?l:r}while$c=$t&&$$t{d}cmp$_[0];$t
}