(format t"1.~A"(floor(expt(dotimes(_(set'x 1500)10)(set'x(1+(/ x))))499)x))