`%$%` <- function(f, x) f(x)
`%.%` <- function(f, g) function(...) f(g(...))