`%$%` <- function(f, x) f(x) `%.%` <- function(f, g) function(...) f(g(...)) flip <- function(f) function(x, y) f(y, x) clear_na <- function(xs) xs[!is.na(xs)]