Help for this page
for(A;B;C){} A;C while B;
sub f { $t=pop;$t=$$t{$c>0?l:r}while$c=$t&&$$t{d}cmp$_[0];$t }