%%HP: T(3)A(R)F(.);
\<<
  \-> fn lo hi
    \<< 0. lo hi
      FOR it
        hi 1. + it - it fn EVAL +
      NEXT
    \>>
\>>