# Josua Kugler, Christian Merten

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