sub mulch
{
     my ($x, $z, $zz, $a) = @_;

     $x->foo($z, $zz, $a->id());
     $z->insert($x);
     $a->restore();

     return $x;
}