Mostly off topic, but here are timings for three ways
to sum the members of a list or an array.
(%i1) p : makelist(k,k,0,9999)$
(%i2) s : 0$
(%i3) showtime : all$
(%i4) for pk in p do s : s + pk;
Evaluation took 00.60 seconds (00.60 elapsed)
(%i6) s : 0$
(%i7) for i : 1 thru 10000 do s : s + p[i];
Evaluation took 5.47 seconds (5.47 elapsed)
(%i9) f : make_array('fixnum,10000)$
(%i10) fillarray(f,p)$
(%i11) s : 0$
(%i12) for i : 0 thru 9999 do s : s + f[i];
Evaluation took 0.11 seconds (0.11 elapsed)
Barton