read `oHardin5.txt`:

M:=140:
n:=2:


gu:=taylor(f4,t=0,2*M+2):

L:=[]:

for m from 1 to M do
 gu1:=expand(coeff(gu,t,2*m)):
 for i from 1 to 2*n do
  gu1:=coeff(gu1,x[i],0):
 od:
L:=[op(L),gu1]:
od:

lprint(L):

print(``):
print(`This took`, time(), `seconds`):
print(``):
quit: