sub gen_std_filter_for {
    my ($type, $transform) = @_;
    return sub {
        [$_];   # XXX this is the "voodoo" line
        my $instr;