1foo input.r /^foo <- function () {$/;" f 2x input.r /^x <- 1$/;" g 3y input.r /^ y <- 2$/;" v function:foo 4