a <- function(x, y, z)            {
  while(2+2> call(3,1)) {
    if (isTRUE(x)) {
      b
}
    }
      for(a in 1:19){
    x[i] +1
  }
}