P = (Expression) ExpandTransformation.expand(P,
EliminateMetricsTransformation.ELIMINATE_METRICS,
Tensors.parseExpression("R_{l m}^{l}_{a} = R_{ma}"),
Tensors.parseExpression("R_{lm}^{a}_{a}=0"),
Tensors.parseExpression("R_{l}^{l}= R"));
W = (Expression) P.transform(W);
Expression F = Tensors.parseExpression("F_lm^kd_pr = "
+ "R^k_plm*d^d_r+R^d_rlm*d^k_p");
OneLoopInput input = new OneLoopInput(2, iK, K, S, W, null, null, F);