isot:=function(g,tbl, irr, L)

local sL, rhoL, n, sirr, i, j;

sL:=Size(L);
sirr:=Size(irr);
rhoL:=[];
for i in [1..sL] do
	rhoL[i]:=PermutationCharacter(g,L[i]);
od;

n:=[];;
for i in [1..sL] do
	for j in [1..sirr] do
		n[i]:=[];
	od;
od;

for i in [1..sL] do
	for j in [1..sirr] do
		n[i][j]:=ScalarProduct(tbl,irr[j],rhoL[i]);
	od;
od;

Print(" \n");
Print("La siguiente matriz contiene los factores de la descomposición isotípica   \n");
Print("de la inducida por la representación trivial de cada subgrupo en la lista: \n");
Print(n, "\n");

end;