'BEGIN' 'REAL' A0,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14; 'REAL' SUM; A0 := 1.0; A1 := 1.0; A2 := 1.0; A3 := 1.0; A4 := 1.0; A5 := 1.0; A6 := 1.0; A7 := 1.0; A8 := 1.0; A9 := 1.0; A10 := 1.0; A11 := 1.0; A12 := 1.0; A13 := 1.0; A14 := 1.0; SUM := 2.0 * A0 + .5 * (2.0 * A1 + .5 * (2.0 * A2 + .5 * (2.0 * A3 + .5 * (2.0 * A4 + .5 * (2.0 * A5 + .5 * (2.0 * A6 + .5 * (2.0 * A7 + .5 * (2.0 * A8 + .5 * (2.0 * A9 + .5 * (2.0 * A10 + .5 * (2.0 * A11 + .5 * (2.0 * A12 + .5 * (2.0 * A13 + .5 * (A14)))))))))))))); OUTREAL(99, SUM); 'END'