definition of join function without rlang::new_function

[moodymudskipper]

rlang::new_function was used so I don't need to do housekeeping on individual functions.

It's handy but is also quite awful to share.

This should be sorted out before publication.

[moodymudskipper]

Sorted out in {powerjoin}