my $fs = 0;
    for my $f ($id, $parenify_all, $parenify_each) {
        my $fd = (qw( id- pAl pEa ))[$fs++];
        my $gs = 0;
        for my $g ($id, $word_matcher, $digit_matcher) {
            my $gd = (qw( id- wrd dig ))[$gs++];
            my $hs = 0;
            for my $h ($id, $upcase, $bang_appender) {
                my $hd = (qw( id- up- bng ))[$hs++];
                print "$fd-$gd-$hd: ",
                      compose($f,$g,$h)->("Eat more 3.14");
            }
        }
    }