uni/sose2021/r/w03/P03-1.R

`%o%` <- function(f, g) {
    comp <- function(...) {
        return(f(g(...)))
    }
    return(comp)
}