1d7
@verb #9611:":_- :_+" this none this rxdo #7165
@program #9611:":_- :_+" this none this
{l} = args
if (!l)
  return 0
endif
n = l[1]
l = l[2]
while (l)
  "Promotion, if necessary..."
  if (typeof(l[1]) == $FLOAT && typeof(n) == $INT)
    n = tofloat(n)
  elseif (typeof(l[1]) == $INT && typeof(n) == $FLOAT)
    l[1] = tofloat(l[1])
  endif
  n = n + l[1]
  l = l[2]
endwhile
return n
"Last modified by Dax (#789) on Tue May  3 13:57:05 2005 MDT."
.

0