scoreCountedT(T,ScoredT):-
		T=Clas-CoveredEI,%T=[reaction_state-{Sign,ReactionID,EC_Number,Change}]-CoveredEI,
		length(CoveredEI,Coverage),
		maplist(extractSignfromT,Clas,List), multiplyList([Coverage|List],Score),
		%Score0 is Coverage*Sign,
		%Score0=Score,%divide_by_length(LengthedEI,Score0,Score),
		ScoredT= Coverage-Score-T.

extractSignfromT([reaction_state-{Sign,ReactionID,EC_Number,Change}],Sign):-!.
extractSignfromT(reaction_state-{Sign,ReactionID,EC_Number,Change},Sign).