PRINT FNsum(j, 1, 100, FNreciprocal)
      END

      DEF FNsum(RETURN i, lo, hi, RETURN func)
      LOCAL temp
      FOR i = lo TO hi
        temp += FN(^func)
      NEXT
      = temp

      DEF FNreciprocal = 1/i