ref: 8964eb4f8dc80fa1461e5c0b2fae2b5f72c18eb0 dir: /tests/pisum.lsp/
(define (pisum) (dotimes (j 500) ((label sumloop (lambda (i sum) (if (> i 10000) sum (sumloop (+ i 1) (+ sum (/ (* i i))))))) 1.0 0.0)))