sub compose {
    my (@funcs) = @_;
    return sub {
        my (@args) = @_;
        foreach my $func (@funcs) {
            @args = $func->(@args);
        }
        return @args;
    };
}