fact<-function(num) {
answer=1
for(i in 1:num) {
answer answer*i
}
print("factorial of a number is")
print(answer)
{
value <- readline(prompt="Enter value: ")
fact(value)