INTEGER RECURSIVE FUNCTION RECURSIVE_FACTORIAL(X) RESULT(ANS)
INTEGER, INTENT(IN) :: X
IF (X <= 1) THEN
ANS = 1
ELSE
ANS = X * RECURSIVE_FACTORIAL(X-1)
END IF
END FUNCTION RECURSIVE_FACTORIAL