mult <- function(a,b) a*b