sub fudge {
   my( $name , $cb , $asbestos, @rest ) = @_;
   subtest $name, sub {
     $cb->($asbestos, @rest );
   };
}