ref: 10d16c10bed72a177a99e0a9a3f3caca6c38ce94
dir: /test/pisum.lsp/
(define (pisum)
(dotimes (j 500)
((label sumloop
(λ (i sum)
(if (> i 10000)
sum
(sumloop (+ i 1) (+ sum (/ (* i i)))))))
1.0 0.0)))