: a 31. do ." x = "1.105170833e i 0 d>f fdup 1e1 f/ 3 1. f.rdp ." , y = "f**
fdup f$ 7 + 6. f.rdp cr loop ; a