12f
@verb #9682:"calc" any none none rdo #9682
@program #9682:"calc" any none none
i = toint(args[1])
tot = 0.0
for j in [0..i - 1]
  add = tofloat(i - j) / (tofloat(i) - 0.5 * tofloat(j))
  tot = tot + add
endfor
player:tell(tot)
"Last modified by Dax (#789) on Tue May  3 14:09:39 2005 MDT."
.

0