Re: exercise in double number arithmetic

: BCOEF  ( n k -- )
  swap s>f 1e 1+ 1 ?DO
    fover 1e f+ i s>f f- i s>f f/ f*
  LOOP fswap fdrop fround f>d d. ;