(setf(long-float-digits)1640)(format t"~F"(/(1+(sqrt 5L0))2))