ref: 06419ca6dde8b1d14ed2dbe5c5a0e37298c5706d 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)))