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