'BEGIN' 'COMMENT' LIBRARY 3; 'REAL' 'PROCEDURE' A(K, X1, X2, X3, X4, X5); 'VALUE' K; 'INTEGER' K; 'REAL' X1, X2, X3, X4, X5; 'BEGIN' 'REAL' 'PROCEDURE' B; 'BEGIN' K := K - 1; B := A := A(K, B, X1, X2, X3, X4) 'END'; 'IF' K <= 0 'THEN' A := X4 + X5 'ELSE' 'IF' B < 0 'THEN' 'END'; OUTREAL(99, CPUTIME); OUTREAL(99, A(10, 1, - 1, - 1, 1, 0)); OUTREAL(99, CPUTIME); 'END'