->set_filter( sub { @_[ grep $filter[$_], 0..$#_ ] } )