aUCBLogo Demos and Tests / testobj6


be testobj6
   
be series expr
      
be sum n
         
local [s]
         
s=0
         
for [k n 1]
         
[   s=s+run expr
         
]
         
output s
      
end
   
end
   
s1=series [-1^(k+1)/k^2]
   
print (s1'sum 10000)
end