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