: a begin pad dup 20 stdin read-line + while evaluate 2dup * 2* >r dup * swap
dup * + swap dup * - dup m* r> dup m* d>f d>f f- fsqrt 4e0 f/ fround f>d 0 d.r
cr repeat ; a