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