b<-function(x   ){
  x <- c(1,
                   2+     3,
         sin(pi) )

  if(x > 10){
return("done")
  }
                    }