Как сделать красивый вывод полинома

x1 = 2;
x2 = 3;
x3 = 4;
x4 = 5;
 
f1 = 2;
f2 = 3;
f3 = 12;
f4 = 147;
 
 
(*WX[X1_,X2_,X3_]:=Collect[(x-X1)*(x-X2)*(x-X3),x];*)(*Сократили X-Xk \
в числителе*)
WXk[Xk_, X1_, X2_, X3_] := Collect[((Xk - X1)*(Xk - X2)*(Xk - X3)), x];
Ak[WXk_] := Collect[(1/WXk), x];
 
numerator[Ak_, Xk_, Fk_] := Collect[((Ak*Fk)/(x - Xk)), x];
denominator[Ak_, Xk_] := Collect[(Ak/(x - Xk)), x];
 
(*factorLagrange[Ak_,Xk_,Fk_]:=Collect[numerator[Ak,Xk,Fk]/\
denominator[Ak,Xk],x];*)
 
factorLagrangeNumerator[Ak_, Xk_, Fk_] := 
  Collect[numerator[Ak, Xk, Fk], x];
factorLagrangeDenominator[Ak_, Xk_] := Collect[denominator[Ak, Xk], x];
 
num1 = factorLagrangeNumerator[Ak[WXk[x1, x2, x3, x4]], x1, f1];
num2 = factorLagrangeNumerator[Ak[WXk[x2, x1, x3, x4]], x2, f2];
num3 = factorLagrangeNumerator[Ak[WXk[x3, x1, x2, x4]], x3, f3];
num4 = factorLagrangeNumerator[Ak[WXk[x4, x1, x2, x3]], x4, f4];
 
den1 = factorLagrangeDenominator[Ak[WXk[x1, x2, x3, x4]], x1];
den2 = factorLagrangeDenominator[Ak[WXk[x2, x1, x3, x4]], x2];
den3 = factorLagrangeDenominator[Ak[WXk[x3, x1, x2, x4]], x3];
den4 = factorLagrangeDenominator[Ak[WXk[x4, x1, x2, x3]], x4];
 
(*FinalSumNumerator:=Collect=[num1+num2+num3+num4,x]
FinalSumDenominator:=Collect=[den1+den2+den3+den4,x]*)
 
(*l1=factorLagrange[Ak[WXk[x1,x2,x3,x4]],x1,f1]
l2=factorLagrange[Ak[WXk[x2,x1,x3,x4]],x2,f2]
l3=factorLagrange[Ak[WXk[x3,x1,x2,x4]],x3,f3]
l4=factorLagrange[Ak[WXk[x4,x1,x2,x3]],x4,f4]*)
 
LagrangePolynom = 
 Collect[(num1 + num2 + num3 + num4)/(den1 + den2 + den3 + den4), x]