foo <- function(x) {
  bar <- function(a, b, c) {
    return(a + b + c)
  }
  return(
    bar(
      x,
      1,
      2
    )
  )
}

baz <- function(l) {
  inner(l, function(x) {

  })
}