klmr

`<-` = function (body, params) {
    vars = all.vars(substitute(params))
    formals = as.pairlist(setNames(replicate(length(vars), quote(expr = )), vars))
    eval.parent(call('function', formals, substitute(body)))
}

sapply(1 : 4, x -> 2 * x)
# 2 4 6 8

mapply(x ~ y -> x + y,