subroutine Evaluation()
	lo = 1 : hi = 100 : temp = 0
	for i = lo to hi
		temp += (1/i)  ##r(i)
	next i
	print temp
end subroutine

call Evaluation()
end