(setf(long-float-digits)330 p 1)(do()((= p(set'p(expt(+ p 1L0)1/3)))(format t"~,98f"p)))