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

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