dd<-function(x)x*2