PROGRAM series_test
! illustrate use of DO LOOP
LET sum = 0                       ! initialize variables
LET n = 0
LET relative_change = 1           ! choose large value
DO while relative_change > 0.0001
   LET n = n + 1
   LET newterm = 1/(n*n)
   LET sum = sum + newterm
   LET relative_change = newterm/sum
   PRINT n,relative_change,sum
LOOP
END