read "everything.txt":
read "../algo24.mws":
with(linalg):
read "../domatrix.txt":
read "../func_file.txt":
read "../funcarith.txt":
T:=gasket(10):
for i from 24 to 35 do
readFunc(T,i,"../output/nicepsi");
end do;
for i from 24 to 35 do
for j from i to 35 do
funcProduct(T,8,i,j,36);
saveFunc(T,36,8,cat("../output/8innerprod",i,"x",j));
end do;
end do;
quit