mult <- function(a,b) {
  a*b
  # or:
  # return(a*b)
}