(dotimes(x 31)(format #t"x = ~,,,,3@A, y = ~,,,,v@A
"(/ x 9.9)(if(> x 23)9 8)(+(exp(/ x 10.0000077))5e-7)))