a <- function() {
 bbx
  x
  }