P38

(load "p34.l")
(bench (do 100 (totient-phi 10090)))

(undef 'totient-phi)

(load "p37.l")
(bench (do 100 (totient-phi 10090)))

http://picolisp.com/wiki/?99p38

10jul10

abu