fac1<-function(x){
f<-1
if(x<2) return(1)
for(i in 2:x){
f<-f*i
f}}
sapply(0:5,fac1)