function EExecGA &OOO Spis Att FM =
(
	local S,I
	if (Spis==undefined) then return false

	if (Spis.Count<1) then
	(	
		TOEmpty_Create &OOO Att

		return true
	)
	
	OB=Spis[1];
	
	S=OB.B;

	for  I=2 to Spis.Count do 
	(
		OB=Spis[I];
		S=S and OB.B;
	)
	
	TOUsl_Create &OOO S Att 

	return true
) -- EExecGA