[Title: NUMERICAL INTEGRATION]
'INT
"[": ?->G: "]": ?->H: "\exp": ?->B
0->O: 1->A: 1->C: 
G->K: H->L: 
K: Prog [Func]: Ans->I: 
Lbl 1: 
 L: Prog [Func]: Ans->J: 
 (K+L)/2: Prog [Func]: Ans->D: 
 Lbl 2: 
  (K+3L)/4: Prog [Func]: Ans->E: 
  (3K+L)/4: Prog [Func]: Ans->F: 
  Abs I+Abs J: 
  Ans<>0=>log Ans: 
  Abs (L-K)Abs (4E+4F-6D-I-J)<\10^(Ans-B)=>Goto 3: 
  2A->A: 
  2C->C:  
  D->J: E->D: 
  (K+L)/2->L: 
 Goto 2: 
  Lbl 3: 
  O+(L-K)(I+4E+2D+4F+J)/12->O: 
  A-1->A: 
  A=0=>Goto 0: 
   Lbl 4: 
    (A+C)/2: 
    Int Ans<>Ans=>Goto 5: 
    .5A->A: .5C->C: 
   Goto 4: 
    Lbl 5: 
    L->K: J->I: 
    L+(H-G)/C->L: 
Goto 1: 
  Lbl 0: O