#-
*Off statistics;
S D, ep;
Auto V k,p,q;
Auto S n,x,m,t,cMi,log,z,ALARM;
{additional_symbols}
CF rat,map,uvprop,g(s),tmps(s),dot;

Auto I s=4,mu=D;
CF vx,rat,map,uvprop,g(s),vxs(s),tmps(s),dot,vec,vec1,gamma;
CT opengammastring;

Polyratfun rat;
#include integrateduv.frm

L F = {numerator};

id dot(k1?,k2?) = g(k1,k2);

#call IntegrateUV()

.sort

#call SubstituteMasters()

.sort

#write<out.txt> \"%E\",F

.end
