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