square <- function(x){ x*x }