[1:50]REAL a; REAL e := 1; FOR i TO 50 DO a[i] := atan(e); e *:= 0.5 OD; FOR i TO 49 DO print((a[i], 2*a[i+1] - a[i], i, newline)) OD # Recurrence formula test#