SYMBOL: i
: sum ( i lo hi term -- x )
[ [a,b] ] dip pick [ inc ] curry compose map-sum nip ;
inline
i 1 100 [ recip ] sum .