フロッピーディスクに入っていたファイルを発掘できたので貼り付けておきます。説明は一切しません。REDUCE 3.7 のマニュアル (PDF現在REDUCEは無料)を見て下さい。

VIRASORO.RDC

clear delta,c,h,l,vech;
order h,c,l;
operator delta,l,vech,ev;
noncom l,vech;
for all m let delta(m)=if m=0 then 1 else 0;
for all m,n such that m>n let l(m)*l(n)=l(n)*l(m)+(m-n)*l(m+n)+c*(m**3-m)*delta(m+n)/12;
for all m let vech(m)**2=1;
for all m,n such that m>0 let l(m)*vech(n)=0;
for all m,n such that 0>n let vech(m)*l(n)=0;
for all m let l(0)*vech(m)=h*vech(m),vech(m)*l(0)=vech(m)*h;
for all x let ev(x)=vech(0)*x*vech(0);
;end;

KACDMAKE.RDC (6次の Kac determinant)

clear kacdet,x;
matrix x(11,11);
array kacdet(6);
for n:=1:6 do begin
for i:=1:11 do for j:=1:11 do x(i,j):=delta(i-j);
for i:=1:p(n,0,0) do for j:=i:p(n,0,0) do      
write x(i,j):=ev((for k:=1:n product l(k)**p(n,i,k))*(for k:=1:n product l(k-n-1)**p(n,j,n+1-k)));
for i:=2:p(n,0,0) do for j:=1:i-1 do x(i,j):=x(j,i);
write kacdet(n):=det(x) 
end;
;end;

PARTNUM.DAT (上のKACDMAKE.RDCで使っている)

clear p;
array p(6,11,6);
p(1,0,0):=1;
p(1,1,1):=1;
p(2,0,0):=2;
p(2,1,1):=2;
p(2,2,2):=1;
p(3,0,0):=3;
p(3,1,1):=3;
p(3,2,1):=1;p(3,2,2):=1;
p(3,3,3):=1;
p(4,0,0):=5;
p(4,1,1):=4;
p(4,2,1):=2;p(4,2,2):=1;
p(4,3,2):=2;
p(4,4,1):=1;p(4,4,3):=1;
p(4,5,4):=1;
p(5,0,0):=7;
p(5,1,1):=5;
p(5,2,1):=3;p(5,2,2):=1;
p(5,3,1):=1;p(5,3,2):=2;
p(5,4,1):=2;p(5,4,3):=1;
p(5,5,2):=1;p(5,5,3):=1;
p(5,6,1):=1;p(5,6,4):=1;
p(5,7,5):=1;
p(6,0,0):=11;
p(6,1,1):=6;
p(6,2,1):=4;p(6,2,2):=1;
p(6,3,1):=2;p(6,3,2):=2;
p(6,4,2):=3;
p(6,5,1):=3;p(6,5,3):=1;
p(6,6,1):=1;p(6,6,2):=1;p(6,6,3):=1;
p(6,7,3):=2;
p(6,8,1):=2;p(6,8,4):=1;
p(6,9,2):=1;p(6,9,4):=1;
p(6,10,1):=1;p(6,10,5):=1;
p(6,11,6):=1;
;end;

以上のサンプルを見れば、もっと複雑な場合にもすぐに対応できると思います。