1/4*Coefficient[T,a b c]/(Exponent[T,a]Exponent[T,b]Exponent[T,c]) + 1/4*Coefficient[T,a b d]/(Exponent[T,a]Exponent[T,b]Exponent[T,d]) + 1/4*Coefficient[T,a c d]/(Exponent[T,a]Exponent[T,c]Exponent[T,d]) + 1/4*Coefficient[T,b c d]/(Exponent[T,b]Exponent[T,c]Exponent[T,d])