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