(let ((rootpi (sqrt (* 4 (atan 1)))))
(lambda (x) (let fac ((x x)) (if (<= x 0)
     (if (= x 0) 1 (if (= x -1/2) rootpi)) (* x (fac (- x 1)))))))

((fileVal "Factorial") 5) ; => 120