segunda <- function(msg){

 number <- 0

}


primera <- function(msg){

 return(paste(msg, " 1 "))

 segunda(msg)

}