


read "TestData4":





T := [];
                            
for i from 1 to nops(L) do

  

   T2:= 0:

   for j from 1 to 5 do
       print([i,j]);

       fd := L[i,j]:

       ff := subs([t1 = log(x^2+1), t2 = exp(x^2/2), t3 = exp(exp(x^2/2))], fd):
       TT2 := time(): g:=int(ff, x): TT2 := time() - TT2: T2 := T2 + TT2: print(T2);
       if op(0,g)=int then print(fake); end if; 


       
    end do:
    T := [op(T), evalf(T2/5)]; print(T); save T, Timing4int:
end do:


