1read("simplify.sum");
2read("simplify.term");
3x:=normal(x):
4readlib(coeftayl):
5y:=coeftayl(x,s=0,d):
6y:=normal(y):
7HS:=normal(HS+y):
8save HS,"simplify.sum":
9quit;
10