sub prepend {
    for ( @_ ) {
        return sub {
            return sub { \@_ }->($_, @_);
        };
    }
}