#die "assert" unless @{$p->{'children'}} > 0;