function EExecA1 &Out_Prm X Att Sg1 FM =
(     
	local S,I
	if (X==undefined) then return false
	if (X.Count==0) then return false
	S = Complex 0 0

	S=X[1].C;
	
	for I=2 to X.Count do
	(
		S=CompSub S X[I].C
	)

	TOChisl_Create &Out_Prm S Att

	return true


) -- EExecA1