f<-function(x){print(x^2)}