# FindAllF test cases:

# read"C:/Users/NiruViju/Desktop/FindAllF.txt":

Fs:= [seq(Belyi_320[i][1], i={13,20,21,25,26,58,119}), seq(eval(Belyi_one_320[j][1],s=7), j = {4,6,8,17,21,23,25}),
      (x+6)^3/(x^4-5*x^3+19*x^2+132*x+232), -(x-3)^3*(4*x-3)/(x*(35*x^2-98*x+171)), -(4+3*x)/(32*x^4+208*x^3+498*x^2+517*x+196),
      (x^2+1)^3/(13*x^4-22*x^2-15+8*x^3-40*x), (5+11*x)^3*(29+77*x)^3/((4963299*x^4+8800572*x^3+5836314*x^2+1718156*x+189499)*(4+11*x)^2),
      -(x^2-11)^3/(27*x^4+6*x^3-354*x^2-18*x+1340), 27*(33*x^2+18*x+2)^3/((107811*x^4+104544*x^3+34236*x^2+4440*x+232)*(3*x+1)^2),
      x^3*(x+4)^3/((6*x^2+30*x-25)*(3*x^2+1)), -(-43+52*x)^3/((169*x^2-286*x+124)*(4225*x^2-7540*x+3349)*(-11+13*x)^2)];

Es:= [0,3,2];

for i in Fs do
  lprint(i);  
  P:= FindExceptionalPoints(i,[3,2,0]);
  Sol:= FindAllF(P,Es,{}); 
  m:= (11*x-17)/(23-19*x); 
  i1:= factor(eval(i,x=m)); 
  P1:= FindExceptionalPoints(i1,[3,2,0]); 
  Sol1:= FindAllF(P1,Es,{}); 
od;