#-
CF  G,J,H,HH,H2,R,RR,KH;
S   Sinf,ln2,x,y,xdummy,i1;
F	K;
AutoDeclare Symbol z, e, h, n, x;
Format nospaces;
Off Statistics;
.global
#do WEIGHT = 12,22,2

TableBase "mzv`WEIGHT'.tbl" Open;
TableBase "mzv`WEIGHT'.tbl" Load;

L	F = K(`WEIGHT'-6);
repeat id K(n?{>2},?a) = K(n-2,2,?a);
.sort
Drop F;
L   F`WEIGHT'a = K(2,1)*F*K(3);
L   F`WEIGHT'b = K(2,2,2)*F;
L   F`WEIGHT'c = F*K(3,3);
L   F`WEIGHT' =  K(2,1)*F*K(3)
                -K(2,2,2)*F
                -2*F*K(3,3);
repeat id K(?a)*K(?b) = K(?a,?b);
Print;
.sort

ArgExplode,K;

id  K(?a) = mzv`WEIGHT'(?a);

TestUse,mzv`WEIGHT';
.sort
TableBase "mzv`WEIGHT'.tbl" use;
Apply;
Print;
.store
#enddo
.end