ref: e7e5677d51c0c3bf605ecf35ca4e0ab8af3c90bf
dir: /femtolisp/pisum.lsp/
(defun pisum ()
(dotimes (j 500)
((label sumloop
(lambda (i sum)
(if (> i 10000)
sum
(sumloop (+ i 1) (+ sum (/ (* i i)))))))
1.0 0.0)))