#To find the factorial of a number:

fact<-function(num){
    answer=1
    for(i in 1:num){
        answer=answer*i
    }
    print(answer)
}
fact(10)