Please using the LISP language, write an iterative function that calculate the factorial of a positive integer and return the result. The function should be equivalent to this Java code.

public static double factorial1 ( double n) {

double sum = 1;

for (double i = 0; i < n; i++)

sum = sum * ( 1 + i );

return sum;

}