(setf(long-float-digits)330 x 1)(dotimes(i 500)(set'x(expt(+ x 1L0)1/3)))(format t"~,98F"x)