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