sub hdl_end {
      my ($p, $elt) = @_;
#etc..
}