a<-function(){
                    1+1
d=3
    }