../../Task/Arithmetic-geometric-mean/Common-Lisp