program recursive
int::value
int::final
value=5
final=factorial(value)
print*,"The factorial of ",value," is ",final
end program recursive

function int factorial(int x)
if x==1 then
return 1
end if 
return x*factorial(x-1)
end