sub compose2 {
        my ($f, $g) = @_;
        return sub {
            $f->( $g->( @_ ) );
        }
    };

    use List::Util qw( reduce );
    sub compose {
        no warnings qw( once );
        reduce { compose2($a,$b) } @_;
    }